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PREFACE 


This report gives the results for a finite-rate, stagnation- line 
analysis of the radiative heating of a phenolic-nylon ablator. The 
analysis includes flowfield coupling with the ablator surface, binary 
diffusion, and a coupled line and continuum radiation model. This 
report serves as- a user's manuel and operating instructions for the 
computer programs listed in this document. This analysis has been 
incorporated into an around- the-body analysis by these same principal 
investigators. Copies of the decks which are used to accomplish this 
later analysis have been supplied to Dr. James N. Moss, grant monitor, 
of the NASA, Langley Research Center. 

This report also served as Guillermo Perez's dissertation require- 
ment in obtaining a Doctor of Philosophy degree in Chemical Engineering. 
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ABSTRACT 


A mathematical model of the aerothermochemical environment along 
the stagnation line of a planetary return spacecraft using an ablative 
thermal protection system was developed and solved for conditions 
typical of atmospheric entry from planetary missions. The model, 
implemented as a Fortran IV computer program,, was designed to predict 
viscous, reactive and radiative coupled shock layer structure and the 

resulting body heating rates. The analysis includes flow-field 

> 

coupling with the ablator surface, binary diffusion, coupled line and 
continuum radiative and equilibrium or finite-rate chemistry effects. 
The gas model used includes thermodynamic, transport, kinetic and 
radiative properties of air and ablation product species, including 
19 chemical species and 16 chemical reactions. Specifically, the 
impact of non-equilibrium chemistry effects upon stagnation line shock 
layer structure and body heating rates was investigated. 

The mathematical model forms a set of twenty-six algebraic, 
differential and integrodifferential non-linear equations subject to 
two-point boundary conditions. The numerical solution was carried 
out by decoupling, linearizing and finite differencing the equations 
in a iterative, globally-implicit manner. 

The model was used to determine the finite-rate chemistry and 
chemical-equilibrium stagnation line heating rate of a 9 foot entry 
vehicle protected by a phenolic-nylon ablator and moving at 50,000 

_8 3 

feet/second when the free-stream air density is 8.85 x 10 slugs/ft 
and the mass injection rate equals .05. The results obtained predict 
significantly different shock layer properties for the finite-rate 
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case and for the chemical equilibrium case. The ablation products 
entering the shock layer through the body wall react much slower than 
under equilibrium conditions and the air components entering the shock 
layer through the shock are not de-ionized, as predicted by the equili- 
brium analysis, but remain "frozen" throughout most of the shock region. 
The total heating rate to the body was found to be significantly lower 
under non-equilibrium than under equilibrium chemistry conditions. This 
difference was attributed to lower concentrations of optically active 
species, such as N and 0, over most of the shock layer in the -non-equili- 
brium chemistry case. 

On the basis of this research it was concluded that a finite- 
rate stagnation-line shock layer solution which contains a reasonable 
kinetics model to describe atmospheric entries protected by phenolic- 
nylon ablators was successfully developed. It was also concluded that, 
for the flight conditions considered, finite-rate chemistry effects are 
significant since both shock layer structure and body heating rates are 
markedly different from those predicted by chemical equilibrium analyses. 
It was recommended that additional studies be carried out on: 1.) im- 
proving the conputational speed of the solution; 2.) finite-rate chemis- 
try effects under flight conditions different from those considered in 
this work; 3.) the effect of assuming more realistic shock and wall 
boundary conditions; and 4.) determining solutions for coupled non- 
equilibrium ablator response and shock layers. The computational speed 
of the solution should be improved so that SLAC is developed from a 
research program to an effective engineering tool. Studies of finite- 
rate chemistry effects under flight conditions different from those 
considered here should be carried out to determine the range of 
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conditions over which solutions nay be obtained using the implemented 

model, and the range of conditions over which non-equilibrium chemistry 

/ 

effects are significant and how they affect the body heating rates. 

The boundary conditions studies should investigate the possible non- 
equilibrium composition of air, including detailed studies of the 
pertinent kinetics at the shock, (in the present work the chemical 
equilibrium composition was used) , and the use of boundary conditions of 
the third kind at the wall. Coupled solutions for both non-equilibrium 
ablator behavior and shock layers should be determined to obtain a 
complete solution to the quasi-steady entry problem. 
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CHAPTER 1 


INTRODUCTION 

THE NATURE OF THE REENTRY PROBLEM 

The launching of a suborbital, orbital or superorbital flight re- 
quires that some means of propulsion be utilized to propel the space- 
craft against the force of gravity. In practice, a chemically-fueled 
rocket engine is used. The increase in the speed of the spacecraft 
results in an increase in its kinetic energy while its motion through 
the gravitational force field results in an increase in its potential 
energy. This kinetic and potential energy would be converted into the 
same amount of kinetic energy if the spacecraft were allowed to fall 
freely towards the Earth and there was no atmosphere. This would result 
in fantastic landing speeds and the destruction of the spacecraft upon 
its collision with the surface of the Earth. Obviously, additional pro- 
pulsive power would have to be used in a direction opposite to the force 
of gravity in order to deccelerate the spacecraft until reasonable land- 
ing speeds are obtained. This need for additional propulsive power re- 
sults in a decrease of the payload since some of the weight of the 
spacecraft has to be used for the propulsion hardware. N.A.S.A. *s Moon 
landings are accomplished precisely in this manner. 

Decceleration of entry vehicles can be accomplished by: 1) use of 

propulsive power against the pull of gravity., and 2) use of aerodynamic 
drag. Landing of spacecrafts on celestial bodies lacking an atmosphere 
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precludes the use of the second technique. Aerodynamic braking requires 
transfer of the body’s kinetic and potential energy to the atmosphere 
and results in the heating of the air in the vicinity of the body. Part 
of the energy gained by the air is then transferred to the body by con- 
vection and radiation creating a need for thermal protection of the 
spacecraft. Both the propulsive and aerodynamic drag braking techniques 
require a reduction of the payload since in the former the propulsion 
hardware and in the latter the heat shield must be a part of the space- 
craft. The optimum technique to be used varies with mission character- 
istics and should be chosen according to a number of factors, such as the 
level of heat shielding technology and payload. Less payload penalty 
is suffered by using aerodynamic braking than propulsive braking for 
braking from hyperbolic approach velocities to orbital velocities at 
Mars (Ref. 1.1). 

DESCRIPTION OF THE FLOW-FIELD IN THE VICINITY OF THE BODY 

Of primary importance, in establishing entry heating levels, is 
the magnitude of the speeds that will be encountered. The range of Earth 
entry speeds associated with several mission objectives is given in 
Figure 1.1 (Ref. 1.2). The use of the gravitational field of Venus to 
alter the interplanetary trajectories between Mars and Earth (Venus 
swingby) is shown to result in significantly reduced Earth entry speeds 
when compared to direct trajectories. Of particular interest are entry 
speeds of about 50,000 fps (about 15 km/sec) since the capability of 
entering at these speeds will permit a wide variety of trips to Mars, 
Venus and the asteroids. 

A blunt body of the type used by NASA in its manned spacecraft 
program (Figure 1.2) would show, under conditions prevalent during 
atmospheric entry at speeds of approximately 50,000 fps, a standing bow 




Earth Entry Speed, km/sec 
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Mercury Venus Mars Ceres Jupiter 


Figure 1.1 Earth Entry Speeds for Several Mission Objectives 
(From Ref. 1.2) 
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shock due to the deceleration of the air in the vicinity of the body. 

The blunt body of Figure 1.2 is axisymmetric and is shown flying at a 
zero angle of attack (its axis of symmetry coincides with the transla- 
tional vector) , this means that the shock and the flow field between 
the shock and the body are axisymmetric. The region of the flow field 
between the shock and the surface of the body may be divided into the 
stagnation line, so-called because the velocity is zero somewhere along 
this line, and the around-the-body region. When the body wall is im- 
permeable, the stagnation point is at the wall where both the normal and 
tangential components of velocity are zero. 

It is important to note, that even though viscous effects are in 
part responsible for the generation of the high temperatures present, 
they are not solely responsible since even for inviscid fluids there 
would be a deceleration of the fluid at the stagnation line. Thus the 
difference between viscous and inviscid flow fields would not be basic 
in nature. 

THERMAL PROTECTION SYSTEMS 

The task of protecting the vehicle from the heat generated during 
atmospheric entry may be accomplished in a number of ways: use of heat 
sinks, transpiration cooling, radiation cooling, ablative cooling, etc. 
The use of a heat sink as a thermal protection system is very limited by 
the lack of suitable materials with high heat capacity and low thermal 
conductivity. Transpiration cooling involves the injection of a cool 
fluid into the shock layer so that it absorbes heat and insulates the 
vehicle from the high temperatures. Radiation cooling involves the use 
of a highly reflective structure in order to block the transfer of ra- 
diative heat into the body. Ablative heat shields operate with materials 
that undergo endothermic physical and chemical changes. 
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Of all the methods of thermal protection, ablative cooling has 
been the most successful. This type of thermal protection system may 
be either a, non-charring or a charring ablator. The former type of ab- 
lator is one that changes from a solid to a gaseous state and enters the 
shock layer counter to the heat flow; typical of these materials is Tef- 
lon. Charring ablators, on the other hand, decompose to a porous char 
and relatively low molecular weight gases. The latter type ablator has 
enjoyed widespread use in the space program. 

The principal thermal protection mechanisms in a charring ablator 
are shown in Figure 1.3. Blockage occurs when the pyrolisis gases are 
injected into the shock layer and prevent most of the convective heat 
flux from reaching the body surface. The ablation products in the shock 
layer absorb part of the radiative flux from the shock and also react 
endothermically. Char re-radiation stops part of the radiative flux to 
the body while, if the temperature is high enough, sublimation of the 
char absorbs part of the incoming energy. The further "cracking" of 
pyrolisis gases and the process of heating those gases from the temper- 
ature at the decomposition zone to the shock layer temperature and their 
subsequent injection into the shock layer constitute additional protec- 
tion mechanisms. The decomposition process in the pyrolisis zone which 
initially produces the pyrolisis gas also absorbs heat. Finally, any 
heat not absorbed elsewhere may be stored in the virgin material in 
which -case the process acts as a simple heat sink. 

THE NEED FOR A BETTER UNDERSTANDING OF THE AERODYNAMIC BRAKING PROCESS 

Results from a study of the possible effects of uncertainties in 
analyses upon heat shield weight are given in Fig. 1.4 (Ref. 1.2). The 
factors considered were uncertainties in: air absorption coefficients. 
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Figure 1.3 Thermal Protection Mechanisms (From Ref. 1.2) 
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boundary layer transition, transpiration effectiveness, surface emissi- 
vity, char sublimation, and pyrolisis gas enthalpy. The entry speed 
considered is 50,000 fps and the weights are normalized to those for the 
nominal conditions as shown at the top. Results for each perturbation 
are stated. It should be noted that the only perturbation causing a de- 
crease in heat shield weight is the surface emissivity. Since the ef- 
fect of some of the uncertainties can be additive it is evident that a 
weight increase of 50 percent or more is possible. For the range of 
entry speeds of interest in this study the heat shield is estimated to 
represent between 10 and 20 percent of the entry-vehicle weight. Due to 
the uncertainties mentioned above this value can represent as high as 
15 to 30 percent of the entry vehicle weight with a corresponding reduc- 
tion in the payload returnable to Earth. Such an effect is clearly not 
negligible. 

One obvious way of reducing these uncertainties is by experimental 
verification of the thermal environment about the spacecraft. Such a 
verification requires duplication of a number of parameters like: flight 

velocity, free-stream density, enthalpy and flow energy, etc. Unfort- 
unately, the presently existing ground testing facilities are not cap- 
able of simultaneous duplication of all the important parameters (Refs. 
1.2, 1.4). The alternatives to ground testing are: testing under act- 

ual flight conditions or developing accurate mathematical models to de- 
scribe the aerodynamic braking process. Because of the very high costs 
involved in flight testing, the importance of improving existing analy- 
tic models is evident. 

The pyrolisis gas enthalpy uncertainty, being the largest has 
since being studied (Ref. 1.4). For entry speeds greater than 50,000 



fps, the effect of the radiation heat transfer uncertainty should be- 
come increasingly important since at these higher speeds the ratio of 
heat transfer by radiation to heat transfer by convection increases. A 

p 

recent study by Engel (Ref. 1,5) resulted in development of a model that 
includes line and continuum radiation and’ equilibrium chemistry with no 
diffusion. Each (Ref. 1.6) used the same radiation model used by Engel 
and obtained solutions for binary and multicomponent diffusion of gas 
mixtures in chemical equilibrium 

Radiative properties are dependent, among other things, upon chem- 
ical composition. For this reason it is important to use the correct 
chemical model when computing heating rates. Ihe chemical equilibrium 
assumption greatly simplifies the problem since it eliminates the need 
for consideration of chemical kinetics. When conditions in the flow- 
field are such that the actual chemical composition is close to the 
chemical equilibrium composition, then the use of' an equilibrium model 
is valid. This generally occurs when the pressure and temperature are 
high. On the other hand for low pressures and temperatures the differ- 
ence between the actual and equilibrium compositions may be large and 
a finite-rate chemistry model must be used. 

STATEMENT OF OBJECTIVES 

This study was undertaken in an effort to reduce uncertainties in 
reentry heating resulting from non-equilibrium chemistry effects. The 
state-of-the art upon which improvements will be made is given in Refs. 
1.5 and 1.6. Specifically, the current research will try to fulfill 
the following objectives: 

1. Develop and solve a mathematical model of the flow-field along 
the stagnation-line of the shock layer. The model shall 
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include the effects of line and continuum radiation, thermody- 
namic and transport properties of air and ablation products, 
binary diffusion, and finite-rate chemistry. 

2. Determine whether finite-rate chemistry effects significantly 
change the heating rate from the one obtained by assuming the 
flow is in chemical equilibrium. 
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CHAPTER 2 


DEVELOPMENT OF THE FLOW-FIELD EQUATIONS 

The mathematical model which describes the flow-field at the stag- 
nation line is developed in this chapter. The conservation equations for 
the flow-field between the body and the shock with the appropriate wall 
and shock boundary conditions are developed. From these equations, the 
stagnation line conservation equations and boundary conditions are 
derived. 

CONSERVATION EQUATIONS OF THE SHOCK LAYER 

The mathematical model of the flowfield from the body surface to 
the shock is obtained from the laws of conservation of mass, momentum 
and energy and also from the formulation of a gas model. The gas mod- 
el used will be discussed in the latter part of this chapter as well as 
In Chapter 3. The complete body oriented conservation equations for a 
multicomponent, viscous, radiating, chemically reacting fluid at steady 
state were developed by Engel (Ref. 2.1). The body oriented coordinate 
system and shock layer geometrical relations pertinent to these conser- 
vation equations are given in Figure 2.1. 

However, these equations are far too complex to allow solution 
with presently available techniques. Fortunately, it has been found 
that, in general, solution of the complete conservation equations is 
not necessary since some of the terms in the equations do not signifi- 
cantly contribute to the solution and may therefore be neglected. Of 
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course, which terms, if any, are negligible varies with flow conditions 
and must be determined in each particular case. It will be shown below 
that, for the flight conditions of interest, the shock layer is laminar, 
thin is a contmum ahd/’these facts can be used to obtain the order of 
magnitude of the terms in the conservation equation. 

According to the results of Hayes and Probstein (Ref. 2.2) the gas 
behind a bow shock of a hypervelocity vehicle is a continuum when the 
free-stream Reynolds number (Re) satisfies the relation 
p * U * R* 

R « — > 100 , (2.1) 

e U? . 

0,0 

Further, for free-stream Reynolds numbers greater than 100, the standoff 
distance divided by body radius (6*/R*) has been shown to be approximat- 
ely equal to the ratio of the pre-shock density (p*) to the post-shock 
density (p£) (Ref. 2,2). 

£* » = - ( 2 . 2 ) 

R* p 6 * P 

Finally, for hypersonic Mach numbers the density ratio across the shock 
(p) is of the order of one tenth and less for dissociating gases. 

p £ .10 (2.3) 

An estimate of the dimensionless standoff distance can be obtained from 
Eqs. 2.1 and 2.2. 

6* < .10 (2.4) 

R* 


In this chapter a superscript * will denote dimensional variables 


unless it is explicitly stated otherwise. 
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Since the dimensionless distance in a direction parallel to the body 
(X*/R*) is of order 1 and greater while the dimensionless distance in a 
direction normal to the body is of order and less, this means that the 
shock layer is thin. 

In order to determine the order of magnitude of the terms in the 
conservation equations following the methods of Ref. 2.3, the equations 
are nondimensionalized by using constants characteristic of the flow 
field, for example 


S 

y 

u 


= X*. 

R* 

= 2 * 
R* 

_ u* 


U '* 
00 


V 


V* 

U»* 


(2.5) 


The order of magnitude of the 
termined by using the largest 
iable, for example, 

£* = 1 


dependent and independent 
possible magnitude of the 


variables is de- 
dimensional var- 


yV 


<$5 

R* 



U'V 


Uoo* 


1 


( 2 . 6 ) 


Using the above procedure, the orders of magnitude of the terms in the 

conservation equations were determined (Ref. 2.1) and are given in Thble 

_2 

2.1. All terms of order p and higher have been dropped from all equa- 
tions except the y-momentum equation. The dimensionless variables ap- 
pearing in Eqs. 2.7 - 2.12 are defined in Table 2.2. It must be noted 
that Eqs. 2.8, 2.9 and 2.10 contain terms of unknown order of magnitude. 
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TABLE 2.1 

LISTING OF CONSERVATION EQUATION WITH 
ORDER ASSESSMENT RESULTS 


Global continuity: 




1 1 

i-H 

l~J 

0 

/ — i 

1 1 

O 




||(r A pu) + |^(£r A pv) 

= 

0 


Species continuity: 




0[1] 0[1] 



0[1] 

||(r A pC.u) + |^<£r A pC.v) 

= - 

* &A V 

| - momentum: 




0[1] 0[1] 

0[p] 



A . ~ A Au 

A 

A 

SP 

pr u ^ + p^r v — + p K r uv + r 

as 

r 1 1 

°[ 

1-1 

r 1 1 

0 =2 J 

J 

°L = J 

L P 2 J 


P 

L p J 

1 J 5 /~ A 5u\ 

“ R 1 3y \ Kr ^ by) " 
e J 

b , A N 
(nr ptu) 

, A du 

+ K r 


~ A 

+ nr uk 



(2-. 7) 


( 2 . 8 ) 


(2.9) 
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TABLE 2.1 (Cont.) 


y - momentum: ( 0 [p] and larger terms) 

0[p] o[p] 0[1] 


A dv Ar- Sv ~ A 2 ~ A 

pr u ~ + pr H v — - p K r u + Kr ^ 

«&■] 

P p 


■ R e { 35 (A 3y) + 3y ( X 85 <rAu) ) 

o[A °[=-] 

+ to ( x to &Av) ) + to A4 S) I " 0 


r-2- 


y - momentum: ( 0[p ] and larger terms) 

Oft] 0[p] 0[l] 

pAff ‘ 5 H- pr^v II - P>r v - 0 + § 

«&■] 

p p 

i. I 8, / i 3u\ , a (. i , A s \ 

r 1 ac \ ^ to) to i x a 5 (r u) j 


A] 


0 


L”J 

p 


0 [ 1 ] 


, A- (\ iL/-~ \\ , 3 /' 9 ~ A dv\ 5 , A . 

+ 3y V x 3y Kr V V + to V Kt ^to)-^.^ ^ u) 


dy v dy 

0 [ 1 ] 


0 [ 1 ] 


dy/ 35 

0 [ 1 ] 


Ak _3„ ' a 
35 


M. 


( A) - i* i & A v) - 2p &- * } = 


(2.10) 


( 2 . 11 ) 
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TABLE 2.1 (Cont.) 


Energy: 


1 — 1 

1 1 

o 

1 — 1 
1“ 1 
U-J 

o 

0[l] 0[1] 


A cSH , ~ A 3H 

r pu - + - 

2 ( A D,y + A R,y) 


°[y 

p 

°[”J 

P 

(2-12) 

2 / 3 /~ A du\ 

+ r 1 a? v* r >* u ■ 

6 

a , a 2. \ 
( * r > 1 
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TABLE 2.2 

DEFINITION OF DIMENSIONLESS VARIABLES 


S R* 


V = 

* R* 


U - 


u* 

U * 


V = 


V* 

U * 


P = 


- £l 


P 

F m,0 


n -*£r- 

^s,0 


\ = 


LL * 

p s ,0 


- _ 6* 
6 “ Ri 


r = R* H * **R* P = 


h = 


h* 

s 

H* 

s 


P* = H*_ 
p*(U*) 2 H s * 


h “ r* where H* = %U* 2 
h * s 


^ R*(ju * j* * 

k = i + H y a). = l j. = — i- A = Al/.x _ 

1 P*U* 1 D *u* n R X S 

03 ® 'co oo J pVffU *)- 5 


A = _A. R ^ 
R ’ y p*w 3 


A g -jfr D i . x . i _ A D , V 

B,x P < D * 3 A “-y >„w 


p„(n )' 


where 


~ / . ri , x 

‘R,x - -S5 (r * ■$,*> 


* 5 . A~ 


4,x - we^s,*) 


*D.y * 
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This -means that these terms can not be dropped from the equations since 
they may or may not be significant. 

Two additional assumptions were made in order to simplify the 
equations of the flow-field. The first of these consists of assuming 
that Stokes’ Postulate (Ref. 2.3) is valid throughout the flow-field. 

This yields 

X* = - j y* (2.13) 

and simplifies Eqs. 2.10 and 2.11. The radiative energy term in Eq. 

2.12 was simplified by assuming that the shock layer geometry is approx- 
imated locally by an infinite plane slab in which radiative transport 
properties vary only across the slab. This assumption yields 

A = 9(k r A ^R.y) 

Ry d y 

<\, a ” 

= - 2i K r J a (2B - I ) dv (2.14) 

0 V V v ' 

As a result 'of the bulk viscosity assumption and the planar rad- 
iative transfer model Eqs. 2.7-2.12 may be written in a more usable form. 
The resulting equations are known as the thin shock layer equations and 
are given in Table 2.3. These equations are also referred to as the 
second order boundary layer equations with curvature effects. 

If all the terms of order p or higher are dropped from the con- 
servation equations they are then known as the first order shock layer 
equations or the first order boundary layer equations (Table 2.4). 

The first order boundary layer equations (Table 2.4) were chosen 
to describe the flowfield for the following reasons: (1) the Reynolds 

numbers encountered during Earth atmospheric reentry from typical Mars 
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TABLE 2.3 

SECOND ORDER SHOCK LAYER EQUATIONS 


Global continuity: 


h <rA ” u) + * <*V> * 0 


Species continuity: 


I; <***!">♦& * 


o A , . ~ A 
‘ H>y Cnr J i,y^ ” r “i 


x - Momentum: 


A 3u . ~ A Bu , A A BP 

pr u — + p„r v -^ + p»r uv = - r ^ 


, 3 r* A 3u^ 3r n 

+ r Ur lid ■ HU “r-“ 


9y 


3y 


y - Momentum: (0[p] and larger terms) 


A 3v , A 3v 


A 2 


pr u &c + p * r V " p * r u = “ Kr ' 


3y 


> BP 
3y 


, .3. / A Bu. 2 B_ , 3r u -, L U 

+ S (r i* V ’ 15 (|1 


Bx 


) + =k *t. <*4, §> 


3 By 


2) , A ^ Br . 

- 3 T, ( « r >* v + *»* w ) 


(2.15) 


(2.16) 


(2.17) 


(2.18) 



TABLE 2.3 (Cont.) 


__2 

y - Momentum: (0 [p ] and larger terms) 


A Bv 


A~ Bv 


A 2 


£1. U V , ** U V ^ 

P r u — + P r K v — - pn r u - - Hr 


-A 

3y 


, \j / A Bu^ 2 ^ j Br u s , 

+ ~ (r i* a?> ' 3 *F ^ 


3x 


3r a s 4 B_ 

3 By 


Gr\ $) 


3y 




Energy: 


k. BH . ~ A BH -9 T~ A r , BT , V u t 

P u ta + “ r P v Ty “ aj b T t k + L h i J i,y 


N. D 


A 5 q R>y 


p_ ; v -1 1 f i»y \ ] ~ 

n 2 £ ^ Pj “ Pi ) ) J - H ay 


(2.19) 


(2.20) 
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TABLE 2.4 

FIRST ORDER SHOCK LAYER EQUATIONS 


(Order determined at R = p U R/ 

e 00 “ 1*6 ,c 

Global continuity: 

(pr A u) +|^ (p*r A v) = 0 
Species continuity: 


= 100 ) 


b_ 

dx 


(r A pCi U ) +|; <^r A pC.v) = - <^ rAj ijy ) + kA). 


x - Momentum: 


A Su 


A ou 


pru — d-pnrv — = -r 


A 3P 3 r ~ A 9u 


ax 

y - Momentum: 

2 ~ 3P 

Phu - x ^ 

Energy: 


k. QH ~ A 3H a/~A.BT\ a / ~ A f „ , 

P u * + * r pv * " a7 * ) ■ a? I * r 1 ? h i J i,: 


_ N D. J, J. . . . aq o 

- — E E ~ ( - 1*2 - -i*i) ) V Hr — ^ 

h 2 ; m. ID. ^ p . p. J / H ay 

N i j£l x i>j M x 


( 2 . 21 ) 


( 2 . 22 ) 


(2.23) 


(2.24) 


(2.25) 


a ( ~ a su \ 

+ * v * r » ) 
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are of the order of 10 making second order terms even less significant 
than was shown by the order of magnitude analysis; (2) there are in- 
herent approximations in the theoretical models and experimental data 
used to predict thermodynamic, transport, radiation and chemical kinet- 
ics properties; therefore, there is no need for more detail in the equa- 
tions solved than in the properties used in the equations. 

Further simplification of the conservation equations was obtained 
by noticing that for the flight coriditions and body radii of interest 
in this work the shock layer is very thin, therefore the relation 

•V 'X. 

K = 1 + Ky may be approximated by k= 1. In addition, neglecting thermal 
diffusion yields the so-called boundary layer equations (Table 2.5). 
BOUNDARY CONDITIONS 

As was mentioned above, the boundary layer equations are parabolic 
and thus require the specification of boundary conditions on the stagna- 
tion line (x = 0), wall (y = 0) and shock (y =6). The stagnation line 
boundary conditions are obtained by taking the limit of Eqs. 2.26 - 2. '30 
as x + 0, The resulting equations form the basis for most of the work 
performed in this dissertation and they will be developed in the next 
section. Wall and shock boundary conditions will be discussed below. 
Hall Boundary Conditions 

The development of wall boundary conditions may be performed in 
two different ways. The first, and most frequently used technique 


*For typical entry conditions of U = 50,000 fps, = 10 ^ 

lbm/ft^ (corresponding to an altitude of 214,000 ft (Ref. 2.4)) and 

R*»10ft, a value o f T / = 15,000 “R is obtained, therefore p = 10“^ 

° 6 ,° 

o * R* 11 * /. 

Ibm/ft sec (Ref. 2.5) and Re = — “ . — - - 5 x 10 . 
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TABLE 2.5 

BOUNDARY LAYER EQUATIONS 


Global continuity: 


(r A p u) + r A (pv) = 0 
3x w p w by p 


(2.26) 


Species continuity: 


~ (r A pC.u) + ~ (pC.v) = 
A w H i 3y r i 


~ (J. ) + 0). 

ay i 


w 


x - Momentum: 


(2.27) 


3u . 3u 

pu si + pV 8^ 


ap , a , Su. 
■ + » Cl * 8? 


(2.28) 


y - Momentum: 


o-f 

By 


(2.29) 


Energy: 


SH , SH 

pu a^ + pv a? 


A. (k 3T) 
a y ay' 


- { E h.J. 

By L . i 


aq, 


R 




ay 


(2.30) 


, a , au. 

+ v.uu t~v 

9y ^ Sy 
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consists of writing mass, momentum, and energy balances across the 
ablator-shock layer interface (Fig. 2.2). A second technique involves 
the use of the conservation equations of the flow-field which are inte- 
grated from y + to y~ and then the resulting equations are evaluated as 
Ay 0. Both of these methods should yield identical results since the 
conservation equations used in the second technique are mass, momentum, 
and energy balances at any point in the flow-field. The first method has 
the advantage that the physical significance of each term in the result- 
ing equations is more readily evident. The second technqiue, on the o- 
ther hand will assure that all the necessary terms have been considered. 

in this work the second technique discussed above was applied to 
the boundary layer equations (Eqs. 2.26 - 2.30) in order to obtain the 
surface balances needed. For example, the global continuity equation is 
multiplied by dy and integrated from y + to y 


jy + 1 8(r w pu) j?* 3(pv) 

y~ r 9x y y~ 3y 

J w 


d y 


o 


to yield 

I? 1 A ? + (PV)+ ' (PV) ’ ’ ° 

where Ay = y + = y“ and use has been made of the mean value theorem to 
integrate the first term. When the limit as Ay -*■ 0 of the equation above 
is taken the result is 

(pv) = (pv) + (2.31) 

This same procedure was used with the o ther equations and the resulting 
relations are given in Table 2.6. 
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TABLE 2.6 

SURFACE BALANCE EQUATIONS 


Global Mass Balance: 

(pv)~ = ( p v) + 

Species Mass Balance: 

(pvc i - J i ) = (pvc i - J i ) + 

X-momentum : 


(Pvn - p 


, 3u..+ 

= (pvu - p — ) 


y-momentum : 


P = P 


.+ 


(2.31) 


(2.32) 


(2.33) 


(2.34) 


Energy : 


(PvH - k + l h. J, + q D - p u )' 

8y i i i,y 4 R,y p 3y 


(2.35.) 


3T 


3u. + 


(PvH -kf +Jh 4 J 4 + -mm—-) 

3y ± i i,y 4 R,y H 3y' 
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In these surface balance equations all the dependent variables on 
the char side of the interface (those with a superscript -) must be in- 
terpreted as being dependent upon both the solid and gaseous phases. For 

example p == p + p and (pv) = p v + p v . In addition it must be no- 
g c g g c c 

ticed that if the flow in the char is one dimensional (u = 0) , as it is 
usually assummed to be, the x - momentum equation is identically zero 
while the terms with arrows through them in the energy balance also be- 
come zero. This same situation exists on the stagnation line since u 
is zero for all values of y. 

Shock Boundary Conditions 

The bow shock is governed by three basic conservation equations, 
corresponding to the three physical principles of conservation of mass, 
momentum, and energy. These equations, commonly known as the Rankine- 
Hugoniot equations are given in rectangular coordinates by (Ref. 2.6): 


Continuity 

0-* V «*„ - P 6 v 6- n 



(2.36) 

Momentum 





(normal) 

p * + P * V* 2 = p* + o* 

CO CO a> 5 n 0 0 

V*2 

6 ,n 


(2.37) 

(tangential) 

V * = V* 

”,t fi,t 



(2.38) 

Energy 

h* + ~ V* 2 + ~ V* 2 . - 

" . 2 » ,n 2 co , t 


V* 2 + k v *2 

5 2 $,t 

(2.39) 


Using Figure 2.3 the above equations can be written in body oriented co- 
ordinates. The development of these equations in curvilinear coordinates 
was performed by Engel (Ref. 2.1) and the resulting equations are given 
below in dimensionless form 

Vj. = sin <j> sin e - p cos 4> cos e (2.40) 


= sin (J) cos e - p cos <f> sin e 


(2.41) 
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Figure 2.3 Resolution of Velocity Components in a Body-Oriented 
Coordinate System 
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P 5 = (1-^) cos 2 <f> +X 


(2.42) 

i 


h 6 ~ ^ 1- P 2 ^ cos $ 


(2.43) 


Again, the dimensionless variables used above were defined as given in 
Table 2.2. As shown in Eqs. 2.42 and 2.43 the terms P and h may be 

05 00 J 

—2 

neglected since they are of order p . 

For a given shock shape and flight conditions , if the post-shock 
fluid is assumed to be pure air in chemical equilibrium, i.e., no dif- 
fusion of ablation products to the shock, then the velocity of the fluid 
at the shock and also its thermodynamic state (pressure, enthalpy, com- 
position, etc.) can be found from Eqs. 2.40 - 2.43 and a technique for 
obtaining the equilibrium composition of a fluid. In practice a chemi- 
cal equilibrium program is usually available and a value of p is guessed, 
from Eqs. 2.42 and 2.43 P^ and are computed and the equilibrium pro- 
gram is used to obtain the composition and a new value of 0 is obtained. 
This procedure is repeated until the guessed and computed values of p 
agree. 


Therefore, boundary conditions of the first kind, i.e., the de- 
pendent variables are specified, may be used at the shock (y = 6). These 
boundary conditions are given below 


u = u„ 


v. 


P « P. 


h = h. 


(2.44) 


Ci «= Ci^ (P , h) (Assuming chemical equilibrium 

I (T ) = 0 (No precursor radiation) 
v * wo 

The additional boundary condition shown above results from assuming that 


no radiation from the free-stream air crosses the shock. 
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STAGNATION LIME BOUNDARY LAYER EQUATIONS* 

The stagnation line boundary layer equations are obtained by for- 
mally taking the limit as x -* 0 of the boundary layer equations (Eqs . 

2.26 - 2.30). The resulting equations were obtained by Engel (Ref. 2.1) 
and are given here in dimensional form for axisymmetric flow in Table 2.7. 
Some comments concerning the derivation of the equations in Table 2.7 are 
pertinent: 1) at the stagnation line the component of velocity tangen- 

tial to the body (u) is zero because of symmetry; 2) the stagnation line 
x-momentum equation is obtained by first differentiating the x-momentum 
equation (Eq. 2.28) with respect to x and then taking the limit as x + 0 
of the resulting equation. This procedure is used because taking the 
limit of the x-momentum equation yields (3P/3x) _ _ = 0, a relationship 

X " v 

which does not contain any useful information. 

The wall and shock boundary conditions needed in order to be able 
to integrate Eqs. 2.45 - 2.49 were obtained by taking the limit of Eqs. 
2.31 - 2.35 and 2.40 - 2.43 as x + 0. Before taking the limit of the 
surface balance equations the flow in the char was assumed to be one- 
dimensional (u = u + = 0) . As was discussed earlier, this condition 
implies that the terms crossed by an arrow m the energy balance equation 
are zero while the x-momentum balance is identically zero. In lieu of 
the x-momentum balance, the fact that u is zero for all x locations at 
the wall ((3u/3x) + = 0) may be used with the stagnation line global con- 
tinuity equation (Eq. 2.45) to yield 


+ 



*In this section all variables are dimensional. 
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TABLE 2.7 

STAGNATION LINE BOUNDARY LAYER EQUATIONS 


Global continuity: 


2 5u _ 15 

dx p 3y 

Species continuity: 
SC. 

a. 3 

pv w = ~ * 

x - Momentum: 


(pv) 



) + 0 ). 


a? [ “ & ( j <pv) ) ] ' pv & ( p a? ( p v) ) 

+ I) =o 

y - Momentum: 


3P 

sy 


= 0 


Energy: 


pv 


3H 

3y 




+ £ h.J. 


i 


1 i»y 



(2.45) 


(2.46) 


(2.47) 


(2.48) 


(2.49) 
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The stagnation line wall boundary conditions are given in Table 2.8. At 
the shock = 0 and the shock boundary conditions simplify to those given 
in Table 2.8. The reader should notice that while all the shock boundary 
conditions are of the first kind, the wall boundary conditions are of 
the first, second and third kind. 


MATHEMATICAL DESCRIPTION OP THE PROBLEM 


Before any attempt is made to describe the mathematics of the 
problem, it is convenient to introduce into the equations the binary 
diffusion assumption 

3 C 

J. = - PD (i - 1 n) <2.51) 

1 jy °y 

and use the relation 

H = h + v 2 /2 (2.52) 


to write the energy equation (Eq. 2.49) in terms of static enthalpy in- 
stead of total enthalpy. When this is done the resulting conservation 
equations are: 

Global continuity: 


o /lH\ = 1 d(p y ) 

Vx«0 p dy 

Species continuity: 


(2.45) 


dci 

d(pD dy ) 
dy 


- pv 


dCi 

dy 


+ u = 0 
i 


(i = 1,. .. ,n) (2.53) 


x - momentum: 


1 d (pv ) 
d(p dy 

d[pdy ] 

dy 


1 d (pv ) 

_ p v L±P dy ) 
dy 


, ,1 d(pv) . 2 

2 S dy ; 



0 


= 0 


(2.47) 



35 


TABLE 2.8 

WALL AND SHOCK BOUNDARY CONDITIONS FOR STAGNATION LINE PROBLEM 


Wall (y = 0) : 

pv = (pv) (2.50a) 

pvC. - J. = (pvC , - J.)“ (2.50b) 
ilia. 


0 (2.50c) 

° y 

P = P" (2.50d) 


ST 

(PvH - k~ + l h.J. + q D ) 

3y ± i i,y R,y 

(PvH - k + S h.J, + )' 

3y i i i.y R.y 


Shock (y = 6) : 

P “ U» Cos £ 


v = v. = - 
o 


6 ,o 


P " U 6,o , e 

u = u P — - sin s 


6 P 


5,o 


“ e U 

p = p = Cl ) “ ” 

6 1 P. ; 

6,o 


P» 2 U oo 

h - h 6 = a - c— -) ) — 

6,o 


C = C. (P. h.) 

i i 6,o t 6 


(2.50f) 

(2.50g) 

(2.50ty 

(2.50 i) 
(2.50J) 


(2 . 50e) 
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y - momentum: 


o 

dy 


(2.48) 


Energy : 


~ dh , „ 2 dv 

p v h pv ~r~ 

dy dy 


k il 

d( dy 
dy 


n *C. 

PD l h. — - 

1 1 dy 


) 


dy 


*r,y 


(2.54) 


The mathematical model of the stagnation line is given by the above set 
of 4 + n (for a system with n chemical species) ordinary mtegro-differ- 
ential equations and a set of two-point boundary conditions given in 
Table 2.8. The integro-dif ferential equations are coupled, nonlinear, 
of first, second and third order. They are integral since the flux div- 
ergence term (dq /dy) in the energy equation is an integral given by 

r >y 

Eq. 2.14. These equations contain the 7 + n unknowns p,v, (3u/3X) 

j 

P, h, T, and C. (i = l,...,n) where both (3u/3x) _ and (3^P/3x^) 

i x = u x 3 0 

are at most functions of y. This discussion assumes that thermodynamic, 
transport, radiative, and kinetics properties (D, uk, p, k, and h^) are 
known in terms of the dependent variables listed above. These properties 
will be discussed in Chapter 3. It is evident that since the 4 +^n equa- 
tions contain 7 + n unknowns three more independent relations are needed. 
These are provided by the thermal equation of state 


p * <f H7> * T 


(2.55) 


the caloric equation of state; 


h » Z C.h. 

ill 


(2.56) 
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and the Rankine-Hugoniot relation for the shock pressure as a function 
of the shock angle measured from the stagnation line 


P g = (1 - p) cos $p 


U 


CO CO 


3 P 

From the y-momentum equation and the fact that (— ) 

dX 

cussed in the previous section) it is evident that 

<!$* = o ‘ = o " con ' tant 


(2.42) 

= 0 (as dis- 


x = 0 


(2.57) 


Substitution of Eq. 2.42 in Eq. 2.57 gives 



x = 0 


—2 (i -p ) (4^o ^ n p 

K dxx = 0 “ 



(2.58) 


This development makes it possible to rewrite the x-momentum equation as 
x-momentum 






- p’v 


1. d(pv) 
d(p' dy ) 
dy 


+ 


Jp 

2 




U 


(2.59) 


Therefore, for a known shock geometry (known <j> (x)) the conservation 
equations contain 6 + n unknowns instead of 7 + n as before. A further 
reduction in the number of equations that need to be solved may be ac- 
complished by eliminating h from the energy equation by substituting 
the caloric equation of state as follows. From Eq. 2.56 


dh 

dy 


» h 
i 


dCi 
1 dy 


n 

+ 2 C 
i 


dhi 
i dy 


H 

= 2 h 
i 


dCj 

i*dy 


n 

a C 


£his 
i dT ; 


dT 

dy 


(2.60) 



38 


n „ dCi n dT 

Eh, — + (E C. CL. ) - 7 — 


i dy 


Pi' dy 


n dC-j 
E h. -r- 
i 1 dy 


+ C. 


dT 
P dy 


Substituting Eq. 2.60 in Eq. 2.54 gives 
Energy : 


dT 


2 dv 


n dCi 


0 V C P 3? - - cv - <” ( ? h i dT 5 


dC-i 




(2.61) 


In this manner the unknowns have been reduced to p, v, (3u/3x) _ n 

X U j 

P, T, and (i = l,...,n). 

At this point it is pertinent to ask, how many of Eqs. 2.45, 2.53, 
2.48, 2.55, 2.59, and 2.61 must be solved simultaneously? It is evident 
that the y-momentum equation (Eq. 2.48), containing only one dependent 
variable, is not coupled to the other equations. In fact, it can be 
integrated anatically to yield 

P(y) = = constant (2.62) 

In addition, the global continuity equation (Eq. 2.45) contains only two 
dependent variables and can be left out of the set that must be solved 
initially. This has the effect of eliminating (3u/3x) x _ from the un- 
knowns In the equations that must be solved. This variable may be read- 
ily obtained from Eq. 2.45 once the p and v profiles are known. The 
answer to the question that was asked at the beginning of this paragraph 
is that Eqs. 2.53, 2.55, and 2.59, and 2.61 in the unknowns p, v, T, and 
(i = 1,..., n) must be solved simultaneously. 
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Let us now consider the boundary conditions that must be used with 
these equations. The species continuity equation (Eq. 2.53) being second 
order requires two boundary conditions for C^. These may be provided 
by Eqs. 2.50 b and 2.50 j 


dCi dCi _ 

pvC . + — ~ (pvC . + pD y-^ 1 ) at y = 0 

F i dy i dy J 


(2.63) 


C. 

i 



at y = 6 


(2.50j) 


Notice that the binary diffusion assumption (Eq. 2.51) was substituted in 
Eq. 2.50b to obtain Eq. 2.63. The x-momentum equation (Eq. 2.59) is third 
order and requires three boundary conditions for pv. These are given by 
Eqs. 2.50a, 2.50c, 


pv = (pv)w at y = 0 (2.50a) 

=0 at y * 0 (2.50c) 

dy 

and 

pv = p 6 v 6 at y = 6 . (2.64) » 

The energy equation (Eq. 2.61) being second order in T requires two 
boundary conditions in addition to the ones already discussed m connec- 
tion with radiation. The first of these boundary conditions is provided 
by the wall energy balance (Eq. 2.50e), this relation is written in terms 
of the variables previously discussed by substituting Eqs. 2.51, 2.52 
and 2.56 

n v 2 dT 11 dCf 

pv(r Cihi +- 5 ; ) - k ¥ - pD (£ hi —) + - 

n v 2 ht n dC-j _ 

[pv(ECihi + ~~ ) - k ^ - P D (E hi + q R>y ]~ (2.65) 
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The second temperature boundary condition needed is given by 

T = at y = <$ (2.65) 

This completes the boundary conditions needed. Of these the most com- 
plex ones are those given by Eqs. 2.63 and 2.65. The boundary con- 
dition given by Eq. 2.63 may be simplified by noticing that for fairly 
high mass injection rates ((pv) >0.05) mass transfer by dif- 

fusion is small compared to mass transfer by convection near the wall. 

This means that the diffusion terms in Eq. 2.63 may be neglected to yield 
Ci = Ci at y = 0 (i * l,...n) (2.67) 

where use has been made of Eq. 2.50a to cancel the pv terms from the 

equation above. The wall energy balance (Eq. 2.65) may also be simplified 

v 2 

by neglecting the kinetic energy of the fluid (— ) since it is small 
when compared to the thermal energy. When this is done Eq. 2.65 becomes 

pv(? Cihi) - k - pD (Z hi 111) + q 

1 dy i dy R>y 

( 2 . 68 ) 

[pv(Z Cihi) - k — - PD (Z hi ^£l) + q ] 
i dy i dy R,y 

Since all the other boundary conditions are of the are of the first 
and second kind and uncoupled, while Eq. 2.68 is of the third kind and 
coupled to the species continuity equation, it was expedient to assume 
that the char is at the sublimation temperature of carbon: 

T = Tto at y = 0 (2.69) 

Until now we have assumed that 6 (the shock stand-off distance) is 
known, a necessary condition to be able to integrate the equations of the 
flow-field. In practice, <5 is unknown and therefore must be guessed to 
be able to compute it correctly. This boundary condition is obtained by 
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evaluating the global continuity equation at the shock 

3u 

= - 2 p $,0 (^“) _ o at y = 6 (2.70) 

Table 2.9 gives a summary of the stagnation line model including 
the conservation equations , the equation of state and the boundary con- 
ditions, 
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TABLE 2.9 


SUMMARY OP THE STAGNATION LINE MODEL 


Governing Equations: 


Species continuity: 

dC. 

1 


dC, 


+ to . 

dy dy i 


= 0 


(2.53) 


X-momentum: 


I d(Pv) 

dy ] 
— » — dy * 

dy 


- pv 


1 d(.Pv) 

d (P dy ) 
dy 


(2.59) 


Energy : 


+ 1 <jT - 4 Ci-P) p„ u„ 2 - o 

x = 0 


dT n dC 

“y > - pvc f + f po h i > « 

dy p dy dy 1 3 


i j n dC . dq 

- P v 2 ~ - Pv.(2 h. j-i) - --- R - * y = 0 
dy . l dy dy 


(2.61) 


Thermal equation of state: 


n C 

P 1R T (2 — ) = P, 


M. 
x x 


(2.55) 
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TABLE 2.9 (CONTINUED) 


Boundary Conditions : 

Wall (y = 0) Shock (y = 6) 


1 . 

Pv = (pv) 

w 

(2.50a) 

1 . 

pv = (pv ) ^ 

(2.64) 

2. 

i<£ = o 

dy 

(2.50c) 

2. 

r f,v) - 

dy 6,o 

<*> (2.70) 

x=0 

3. 

c -i = c, 
i i,w 

(2.67) 

3. 

c = C . 

i i,o 

(2.50J) 

4. 

T = T 

w 

(2.68) 

4. 

T = T 

6 

(2.69) 



CHAPTER 3 


THERMODYNAMIC , TRANSPORT, KINETIC, 

AND RADIATIVE PROPERTIES 

The thermodynamic, transport, kinetic, and radiative properties 
of the mixture of air and ablation species which are necessary to solve 
the conservation equations that were presented in the previous chapter 
are evaluated with the methods described in this chapter. 

THERMODYNAMIC PROPERTIES 


Thermodynamic Properties of Pure Species at Standard State 

The specific heat at constant pressure, enthalpy, entropy, and 
Gibbs free energy of the pure species at one atmosphere pressure (stand- 
ard state) were obtained by Esch,et.al. (Ref. 3.1). This was accomplished 
by curve fitting with the method of least squares, temperature polynom- 
ials to data found in the literature. The polynomials used to fit the 
thermodynamic properties are given in Table 3.1. For each species, two 
different fits were made, one for low temperatures (1000°K <_ T <_ 6000°K) 
and the other for high temperatures (6000°K <_ T <_ 15,000°K). For each 
species, the coefficients for the expressions in Table 3.1 are given in 
Table 3.2 for the two temperature ranges. Each term in Eqs. 3.1 - 3.4 
is dimensionless, temperature is in °K and IR = 1.987 cal/gmole - °K, 
therefore the units of the thermodynamic properties are as given below 
Cpi = [ cal/gmole of i - °K] 
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TABLE 3.1 POLYNOMINAL EQUATIONS FOR 
STANDARD THERMODYNAMIC PROPERTIES 


Specific Heat 



* A. . + A„T. + A„T 2 + A.T. 3 + 

l,i 2,i 3 i 4,i 5,i 


(3.1) 


Enthalpy 


i 7 -f 3 -? 7 

]Rf * A l,i + + 3 1 + 


. * A r . « A r . . A 


+ ■ 5 > 1 ^t + 


(3.2) 


Entropy 

S* Aq. ^ A , , „ A_ . . 

]R - A 1,F + A 2h + — 1 c + ~T* + + A 7,l 


(3.3) 


Free Energy 


= A. . (1-lnT) 


Ira = A i,i 


A, . 

2,i 


A 3 , i 2_ T _ A j ? i , 3 T _ A 5,j4 ^6*1 

6 12 20 T 



(3.4) 



TABLE 3.2 


POLYNOMIAL COEFFICIENTS FOR THERMODYNAMIC PROPERTY CORRELATIONS 


Species At ,* 


A? . i. 

A3.i 

C + 

0 .2609E 

01 

-0 * 1393E-03 

0 .5959E-07 


0.2528E 

01 

0 .4869E-05 

-0 .7Q26E-G8 

H 

0 * 250 OE 

01 

-0.82436-06 

0 .64216-09 


0 . 3934E 

Cl 

-0 . 1776E-02 

0 .60 13E-C6 

N + 

0 .2727E 

Cl 

-0 .262 06-03 

0.11 C5E-06 


0.24996 

01 

-0. 37256-05 

0.11476-07 

o+ 

0.2491E 

Cl 

0 .2762E-04 

-0 . 188 IE-07 


0 .29446 

01 

-0.4 1086- 03 

0 .91 S66-C7 

E- 

0 .2500E 

01 

0.344 OE— 06 

-0 • 19546-09 


0.2508E 

Cl 

-0 .6332E-05 

0 . 1364E-08 

C 

0.2612E 

C 1 

— 0 .203 OE— 0 3 

0. 1095E-C6 


0.21416 

Cl 

0.321 9E-03 

-0.54 986-07 

CN 

0.341 16 

01 

0 .4897E-03 

0. 10C5E-C6 


0 . 3473E 

01 

0 .7337E-03 

-0 .90886-07 

CO 

0 . 3254E 

C 1 

0 .96986-03 

— 0.26476— CC 


0.3366E 

Cl 

0 .8027E-03 

-0. 19686-06 

C2 

0.4443E 

0 1 

-0 .2885E-03 

0.30366-06 


0 .4026E 

C 1 

0 .485 7E-0 3 

-0.70266-07 

C2H 

0 . 3485E 

C 1 

0 . 3563E- 02 

-0. 1237E-05 


0.S307E 

Cl 

0 .89666-03 

-0 . 137eE-C6 


M. i 

-0 ♦ 1 0376- I 0 
0 . I 134E- 1 1 
-0. 17206-12 
-C. 78196-10 
-0. 15516- 1 0 
- 0*1 102 E -11 
0.38076-1 1 
-0 .5848E-1 1 
0 .3937E- 13 
-0 . 1 0946-12 
-Q. 16956-1 0 
0 -3604E- 1 1 
-0. 34736-10 
0 .4847E-1 1 
0.3037E-1 0 
0. 19406-10 
-O .6244E-1 C 
0.4666E-1 l 
O. 1866E-C9 
0.9251E-1 1 


* Temperature Range L = 1000-6000°K, H = 6000-15000°K 


A5_,i 

Afi . i 


A7 1 


T* 

0 * 6345E— 1 5 

0 .21 68E 

06 

0.3709E 

01 

L' 

-0.34766-16 

0 .21686 

06 

0.4 1 396 

01 

H 

0. 14576-16 

0 .25476 

05 

-0.46126 

CO 

L> 

C.3482E-14 

0 .2547E 

05 

-0 .8598E 

Cl 

H 

0 . 78476-15 

0 .2254E 

06 

0.36456 

Cl 

L 

0.30786-16 

0.2254E 

06 

0.4950E 

01 

H 

-0. 10286-15 

0.1879E 

06 

0.44246 

Cl 

t 

0 . 1 1906-15 

0 . 1879E 

06 

0 • 1 7506 

01 

H 

-0.25736-17 

-0 .7450E 

03 

-0.1 1736 

02 

L 

0.29346-17 

-0.7450E 

03 

-0.1 2086 

02 

H 

0.859CE-15 

0 • 8542E 

05 

0.4 1446 

Cl 

L- 

— 0 .55646 — 16 

0 .85426 

05 

0.68746 

01 

H 

C .236 16-14 

0.47456 

05 

0 .4746E 

Cl 

L 

-0.10186-15 

0 .5420E 

05 

0.4152E 

C 1 

H 

-0.1 177E- 14 

-0 .14346 

05 

0.48756 

C 1 

L‘ 

-0.55496-15 

-0 . 1434E 

Q5 

0.42636 

Cl 

H 

0.391 5E-14 

0.97876 

05 

-0.1 090 E 

0 1 

L 

-0.11 426—1 S 

0 . 9787E 

05 

0.1 0906 

0 1 

H 

-C .10136- 1 3 

0 .5309E 

05 

0.47846 

Cl 

L 

-G.2278E-15 

0 .58096 

05 

-0,52886 

Cl 

H 



TABLE 3,2 (Continued) 


Species 

. Ai.i 


A2.i 

A3, i 

A 4 . i 

A 5. i 



A6.i 


A7.i 


T* 

C2H2 

0.3891E 

0 1 

0.5717E-02 

-0.19S7E-0S 

0 « 293 l £—09 

-0.158SE-13 

0 


2590E 

05 

0.6S20E 

00 

L 


0.6789E 

0 1 

0 • 1503E-02 

— 0 . 2295E— 06 

0. 15346-10 

-0 .3763E-15 

0 


2590E 

05 

-0.1539E 

<C2 

H 

C3 

0.4002E 

01 

0 .3541E-02 

-0 . 1318E-05 

0 .20646—09 

-0.1 14 4 E— 1 3 

0 


9423E 

05 

0.2020E 

Cl 

L 


0 .2213E 

02 

-0 .1759E-0 l 

0 . 55656-05 

-0.67586-09 

C .2825E-1 3 

0 


9423E 

05 

-0 .1021E 

03 

H 

C3H 

0 *39656 

01 

0 .62006 — 02 

-0.2265E-C5 

0 .3717E-09 

-C .2262E-13 

0 


6283E 

05 

0.34676 

01 

L 


0.3965E 

C 1 

0 .6200E-02 

-0.2265E-05 

0 .37 17E-09 

-0.2262E-13 

0 


6283E 

05 

0.3467E 

C l 

H 

C4H 

0 .5874E 

01 

0.7403E-02 

-0.2729E— 05 

0 *44376—09 

-0.2637E-13 

0 


7605E 

05 

-0 .4010E 

01 

L 


0.S874E 

01 

0 .7403E-02 

-0.2729E-C5 

0 . 4437E— 09 

— 0 . 2637E- 1 3 

0 


7605E 

05 

-0 *4 0 1 OE 

01 

H 

HCN 

0.3654E 

01 

0 .3444E-02 

-0. 1258E-0S 

0 .21696-09 

-0. 1430E-13 

0 


1442E 

05 

0.2373E 

0 t 

L 


0. 3654E 

01 

0.3444E-02 

-0. 1258E— OS 

0.2169E-09 

— 0 • 1430E— 1 3 

0 


1442E 

05 

0.23736 

01 

H 

H2 

0.33S8E 

Cl 

0.27946-03 

0.9372E-07 

— 0 . 29486— 1 0 

0.214 IE— 1 4 

-0 


1018E 

04 

-0 . 354 8 E 

01 

L 


0.3363E 

Cl 

C .4656E-03 

-0 .51 27E-C7 

0.2802E-1 1 

-0.4905E-16 

-0 


101 06 

04 

-0 .3716E 

01 

H 

N 

0.2474E 

0 1 

0 .90976-04 

-0 .78 14E-07 

0.221 8E— 1 0 

-0.1489E-14 

0 


5609E 

05 

0 .43006 

Cl 

L 


0.2746E 

Cl 

-0 .3909E-03 

0. 1338E-06 

-0. 1 191E-10 

0 .3369E-15 

0 


5609E 

Ob 

0 .2872E 

Cl 

H 

0 

0.26706 

01 

-0 .19706-03 

C .71 9 36-C7 

—0.8901 E— 1 1 

0.40C2E-15 

0 


29 15E 

05 

0 .45046 

c 1 

L 


0 .2548E 

01 

-0 .59S2E-04 

0 .27 C IE— 07 

-0.2798E-1 1 

0 • 938 0 E— l 6 

0 


291 5E 

05 

0 .5 0496 

01 

h 

N2 

0.3221E 

01 

0 .9878E-03 

-0.29C7E-06 

0 .39J8E-10 

— 0.20COE— 14 

-0 


10436 

04 

0.4326E 

Cl 

L 


0.3727E 

01 

0.4684E-03 

-0.11 4GE-C6 

0. 1 1546- 1 0 

-0 .32936-1 5 

-0 


1G43E 

04 

0.1 294 £ 

c 1 

H 

02 

0.33166 

01 

0 . 1 15 IE-02 

-0 .37266— C6 

0 . 61 86E- 1 0 

-0.3666E-14 

-0 


1044E 

04 

0 .5 393E 

0 1 

L 


0.3721E 

01 

0 .4254E-C3 

-0.28356-07 

0.6C506-12 

-0.5 186E- 17 

-0 


1044E 

04 

0.32S4E 

Cl 

H 


*Temperature Range h = 1000-6000°K, H » 6000-15 ,000°K 
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h° = [ cal/gmole of i] 
i 

S° = [cal/gmole of i - °K) 

1 

F? = [cal/gmole of i] 

Thermodynamic Properties of Pure Species at Arbitrary State 

Expressions for the thermodynamic properties of pure species at 
arbitrary pressures and temperatures are predicted in the following 
manner. The species are assumed to be ideal gases so that (Ref. 3.2) 
h £ = h ± (T) = hi° (3.5) 

and since C pi = (3h^/8T)p then 

C Pi = C Pi < T > = c Pi° (3.6) 

In other words, both the enthalpy and the specific heat at constant pre- 
ssure are independent of pressure. On the other hand let us examine en- 
tropy, from the first law of thermodynamics 

dh = TdS + * dP (3.7) 

i i X i 

where Xi is the molar concentration of species i (moles of i/volume) . 
Rewritting Eq. 3.7 gives 

dS - i dhi - JL dP (3.8) 

i T X-T 

From the thermal equation of state for an ideal gas 

P = X JRT (3.9) 

i 

and Eq. 3.8 can be rewritten as 


dS ± = ^ dhi - IR d (InP) 


(3.10) 
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and integrated to yield 

S ± (T,P) = 1 £ dhi - IR In P + A (3.11) 

where Ag vLs an integration constant. In order to evaluate Ag we make 
use of the fact that (T,l) = S? and obtain (by evaluating Eq. 3.11 at 
P = 1 atmosphere) . 

A S,i * s i° - ’I dhl C3.12) 

Substitution of Eq. 3.12 in Eq. 3.11 yields 

S ± = S ± (T,P) = S i ° - IR In P (3.13) 

The Gibbs free energy is defined as 

FjL = hi - TS i (3.14) 

substitution of Eqs. 3.5 and 3.13 in the above equation results in 

F ± = hi° - TS 1 ° - IRT In P (3.15) 

or 

F ± = F ± (T,P) = F i ° 4 IRT In P (3.16) 

since 

F ± ° = hi° - TS i ° 

Thermodynamic Properties of Mixtures 

For each species in a mixture consisting of a total of n gaseous 
species the thermodynamic properties are given by 


h.. - h ± (T) = 

h.° 

X 

(3.17) 

C pi = C Pl (T) 

0 

■H 

P4 

o 

II 

(3.18) 

S ± = S ± (T,P) 

= S 1 ° - |R In P i 

(3.19) 

Fi = F ± (T,P) 

= F i ° + (RT In P L 

(3.20) 
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where is the partial pressure of species i (atmosphere) . Mixture 
properties are then given by 

(3.21) 


n 


h = I y. h- [cal./gmole of mixture] 
i 


n 


Cp = E y C [cal./gmole of mixture - °K] 
i i Pi 


( 3 . 22 ) 


S = Z y S [cal./gmole of mixture - °K] 
i i i 


F = S y . F. [cal./gmole of mixture] 
i 1 


(3.23) 


(3.24) 


where yi is the i^ species mole fraction (gmole of i/gmole of mixture) 
and the units of each property are given by the terms in brackets. 
TRANSPORT PROPERTIES 

Presently available transport properties data for air and ablation 

products are extremely limited because of the difficulties involved with 

experimental measurements at the extremely high temperatures of interest. 

Thus, it is necessary to rely heavily on properties obtained from theo- 
/ 

retical predictions like the Chapman-Enskog kinetic theory (Ref. 3.3). 

At the lower temperatures, where ionization has not yet begun to occur, 
the classical first order Chapman-Enskog kinetic theory has been found 
to be reasonably accurate. However for higher temperatures the use of 
more rigorous kinetic models becomes necessary. The transport proper- 
ties used in the present work were obtained by Esch (Ref, 3.4); in or- 
der to obtain simple closed form expressions for species viscosity and 
thermal conductivity the theoretical results reported in the literature 
were curve fit with polynominal expressions in temperature. 

Viscosity 

The species viscosity data obtained from theoretical predictions 



51 


were curve fit to a second degree polynomial m temperature 

p. = a. + b.T + c.T 2 (3.25) 

111 i 

In the above relation temperature is in °K, pi is in lbm of l/ft-sec and 
the coefficients a , b^, and are given m Table 3.3. For a mixture 
consisting of n gaseous species viscosity was predicted by the Buddenberg- 
Wilke model (Ref. 3.5) 


y 


y. y. 
= 2 1 1 


• n , 

1 ? ^ij 

i J 


(3.26) 


where 


$ . . 
ij 


1 

J8~ 



1 + 



^1 



2 


(3.27) 


ttl 

and is the i species molecular weight. 

Thermal Conductivity 

The species thermal conductivities were obtained from linear fits 
of theoretical results: 


K x = d ± + e ± T (3.28) 

again T is m °K, k^ is in °K, is m BTU/ft - sec - °R and the coef- 
ficients d and e x are given in Table 3.4. Misture thermal conductivity 
is compared by 

n y k. 

k = Z (3.29) 

i J yi ^ij 

where as before is given by Eq. 3.27. 

Binary Diffusion 

The coefficient of binary diffusion was assumed to be a function of 
temperature and pressure as follows (Ref. 3.4): 

8.128xl0 -8 t 1 ' 659 (3.30) 


D = 


P 



TABLE 3.3 


CONSTANTS FOR VISCOSITY CORRELATION 



Pi = ai + 

bjT + ciT 2 

lbm 


ft-sec 

Species 

a x 10 5 

b x 10 7 

c x 10 l 2 

Temperature 
Range (°K) 

02 

1.693 

0.1496 

-0.2276 

2*000-10,000 

n 2 

0.970 

0.1613 

-0.1916 

2,000-10,000 

0 

1.519 

0.1875 

-0.2228 

2,000-10,000 

N 

0.253 

0.2206 

-0.3737 

2,000-10,000 

0 + 

0.0 

0.0500 

-0.1000 

8,000-15,000 

N + 

0.0 

0.0500 

-0.1000 

8,000-15,000 

e" 

o 

. 

o 

0.0500 

-0.1000 

8,000-15*000 

C 

1.997 

0.1772 

-0.3378 

5,000-10,000 

H 

0.294 

0.0889 

-0.0811 

4,000-10,000 

h 2 

>0.079 

0.0791 

-0.0886 

4,000-10,000 

CO 

2.404 

0.1363 

-0.2184 

4,000- 9,000 

C 3 

2.019 

0.1179 

-0.1655 

1,000- 5,000 

CN 

2.404 

0.1363 

-0.2184 

4,000- 9,000 

c 2 h 

2.404 

0.1363 

-0.2184 

4,000- 9,000 

C 2 H2 

1.396 

0.0842 

-0.6939 

1,000- 5,000 

c 3 h 

2.019 

0.1179 

-0.1655 

1,000- 5,000 

c 4 h 

2.019 

0.1179 

-0.1655 

1,000- 5,000 

HCN 

1.378 

0.0965 

-0.0948 

1,000- 5,000 

c 2 

1.931 

0.1393 

-0.2575 

4,000- 9,000 

c + 

o 

• 

o 

0.0500' 

-0.1000 

8,000-15,000 



53 


TABLE 3.4 

CONSTANTS FOR THERMAL CONDUCTIVITY CORRELATION 
ai+ bjT (BTU/ft-sec-°R) 


Species 

a x 10 5 

b x 10 Q 

Temperature 
Range (°K) 

o 2 

1.019 

0.4901 

2,000-10,000 

n 2 

0.6S4 

0.6457 

2,000-10,000 

0 

1.2S0 

0.7092 

2,000-10,000 

N 

1.281 

0.8593 

2,000-10,000' 

0 + 

26.0 

0.0 

8,000-15,000 

N + 

26.0 

0.0 

8,000-15,000 

e ” 

26.0 

0.0 

8,000-15,000 

C 

2.506 

0.7479 

5,000-10,000 

H 

2.496 

5.129 

4,000-10,000 

H2 

3.211 

5.344 

4,000-10,000 

CO 

0.859 

0.6233 

1,000- 5,000 

C 3 

0.630 

0.5804 

1,000- 5,000 

CN 

0.859 

0.6233 

2,000-10,000 

c 2 h 

1.126 

0.7439 

1,000- 5,000 

c 2 h 2 

1.126 

0.7439 

1,000- 5,000 

c 3 h 

0.6 30 

0.5804 

1,000- 5,000 

c 4 h 

0.630 

0.5804 

1,000- 5,000 

HCN 

0.486 

0.8714 

1,000- 5,000 

c 2 

0.859 

0.6233 

1,000- 5,000 

c + 

26.0 

0.0 

8,000-15,000 
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where T is in °K, P is in atmospheres, and D is m ft^/sec. 

Chemical Kinetics 

Formulation of a kinetics model that describes the chemical reac- 
tions in the flow-field requires the investigation of innumerable pos- 
sible reactions that can take place among the air and ablation product 
species that are present in the shock layer. Because of the complexity 
associated with kinetics models involving a large number of reactions 
only those reactions that are important may be considered. In other 
words, we seek to develop the simplest model capable of accurately des- 
cribing the chemical kinetics of the flow-field. 

Suppose that a number m of chemical reactions of the form 

Z v ' S. t ? v.V S t (j - l,...,m) (3.31) 

i ij 1 1 


where n is the total number of species m the system, arid and 

are the stoichiometric coefficients of the reactants and products in the 
jth reaction, respectively, have been chosen as a kinetics model, then 
the rate of generation of species i due to finite-rate chemical reac- 
tions (u^) is given by the Law of Mass Action (Ref. 3.6) as 


m n 

w = i (V. . - V, .) f . m. n 
i -i ij ij J J k = 1 % 


pCk N vkj 


(3.32) 


-S (v,. - v, .) r M. B 

j ij ij J i k = 1 M k 

where p is the density, is the ith species mass fraction, is the 

molecular weight of species i, and f , and r. are the forward and back- 

J 3 

ward reaction rate constants for the j*-* 1 reaction, respectively. The 
forward and backward reaction rate constants are generally taken as 
functions of temperature of the form (Ref. 3.7) 


f j = afj T b fj exp (-efj/t) 
rj = a r j T b rj exp (-e r j/T) 


( j “ 1 , . . . ,m) 


(3.33) 

(3.34) 
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where afj T^fj and a r j T^fj are the frequency factors, and efj and 
e r j are the activation energies for the j*-* 1 forward and backward re- 
actions, respectively. 

In practice, the forward reaction rate constant is normally mea- 
sured experimentally while the backward reaction rate constant is ob- 
tained as follows: At equilibrium v " 

■n p Ct ^'i n pC v ij 

(v.7 -v !) f. M. 1 = (v7 - v!.) r. K. n (—^) 

IJ ij J 1 k=l \ 1 3 il 1 1 k**l Mfc 


or 


f . n 

- 1 « n (r“) 
r j k.l“k 


P C v <\i-V) 


kj' 


(3.35) 


(j = 1, . . . ,m) (3.36) 


The equilibrium constant for the reaction (Kj) is given by (Ref. 3.8) 

(3.37) 


S (V " - v. !) n 
K. = (jRT) k kj 

3 


pC k (v ki ~ V ki> 


where B is the ideal gas constant. Substitution of Eq. 3.37 in Eq. 

3.36 and solving for r^ yields 

I Ki - ^i> -i < 3 - 38 > 

r - ( KT) k 3 3 f j (j - 

Therefore, knowing the forward reaction rate constant and the equi- 
librium constant the backward rate constant can be obtained from Eq. 
3.38. 

There are two methods commonly used to obtain the equilibrium 
constant of a reaction. The first method consists of computing the 
chemical equilibrium composition of the system for a range of differ- 
ent temperatures and using this data with Eq. 3.37 to compute the eq- 
uilibrium constant for different values of temperature. This set of 
values of equilibrium constant versus temperature can be curve fit with 
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analytical expression for K. 

Kj = V j exp (gj/T) (j = 1 , . . • ,m) (3.39) 

where and are constants. The second method consists of using the 
expression for the equilibrium constant obtained from thermodynamics 
(Ref. 3.9) 

Kj = exp (-AFjVlRT) (j = l,...,m) (3.40) 

where AFj is the standard free energy for the jth reaction and is given 


by 


AF] = S = x (v£j - v k j)F° (j = l,...,m) 


(3.41) 


B 


B 


B, 


AF * „ _ „ „ 

— — = BIj (1 - InT) T T 2 T 3 

RT i V ; 2 6 12 


B- , / B, . 

_ JL dj + 6.3 

20 T 


7,3 


where 


B M - 1-1 Kj - V k ■ 1 7 > 


Therefore the equilibrium constant may be obtained from the species stan- 
dard free energy expressions given in Tables 3.1 and 3.2. The first 
method has the advantage that when it is used the backward reaction rate 
constant has the same form as Eq. 3.34; this can be seen by eliminating 
fj and Kj from Eq. 3.38 by substituting Eqs. 3.33 and 3.39 to yield 

I (V. " - V. ! ) b, . 

r j k k3 kj a f ^ T fj exp [-(e f j + 3j)/T] (3.42) 

^3 (j = 1, . . . ,m) 

Comparing Eqs. 3.42 and 3.34 it is evident that 

n 


a _ QR)h ^ kj kj 'a 

a rj " V-j 

b rj « b f j + l < v kj - v fc j) (3.43) 

e r j = ef-j + gj 

The second method, on the other hand, does not yield an expression of 
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the form of Eq. 3.34 since AF ° is a polynomial expression (see Eq. 

3,4). The resulting expression is therefore cumbersome to use. On 
the other hand the second method has the advantage that is readily 
obtained from the species standard free energy and does not require a 
routine for computing chemical equilibrium as does the first method. 

Up until this point, this discussion has been limited to the case 
'where the kinetics model was already determined; however, as will be 
shown below, establishing an appropriate kinetics model is not a simple 
task. Information has been collected over a period of years on the 
chemistry of the reactions of ablation products and air species, and 
this Information is stored in the form of a computer implemented data 
management file which presently contains several thousand reactions. 

It was necessary to examine this extensive set of reactions to arrive 
at a listing of most probable reactions (Ref. 3.10), These probable 
reactions were selected involving 28 species. Currently, it is not 
possible to consider a solution of the conservation equations with 
this many species and reactions. Furthermore, rate data were not a- 
vailable for many of them. Therefore, this preliminary list was then 
reexamined for key reactions to represent the chemical system. The 
selection was based on the species anticipated to have the largest 
compositions and presumably, therefore, dominate the energy level of 
the system. These key reactions are given in Table 3.5. In Table 
3.6 the previously omitted ablation product and combustion reactions 
are given. Shown in Table 3.7 are the additional air and hydrogen com- 
bustion reactions. The values of the coefficients afj, bf j » and of 
the forward reaction rate constants (see Eq. 3,33) for the reactions 
in Table 3.5 are given in Table 3.8. The forward rate constants listed 
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TABLE 3.5 

SELECTED IMPORTANT CHEMICAL REACTIONS IN 
THE SHOCK LAYER OF AN ABLATING BODY 


1. 

CO 

+ 

N 

= 

CN 

+ 

0 



2. 

c 2 H 

+ 

H 

= 

C 2 

+ 

H 2 



3. 

N 2 

+ 

M 

= 

2N 

+ 

M 



4. 

H 2 

+ 

M 

= 

a i 

+ 

M 



5. 

0 

+ 

M 

= 

0/ 

+ 

E - 

+ 

M 

6. 

N 

+ 

M 

= 

N/ 

+ 

E- 

+ 

M 

7. 

CN 

+ 

M 

= 

C 

+ 

N 

+ 

M 

8. 

CHN 

+ 

M 

= 

CN 

+ 

H 

+ 

M 

9. 

c 2 h 

+ 

M 

= 

C 2 

+ 

H 

+ 

M 

10. 

C 2 H 2 

+ 

M 

= 

c 2 h 

+ 

H 

+ 

M 

11. 

CO 

+ 

M 

= 

C 

+ 

0 

+ 

M 

12. 

C 3 

+ 

M 

SB 

C 2 

+ 

C 

+ 

M 

13. 

C 2 

+ 

M 

= 

2C 

+ 

M 



14. 

C 


M 

- 

c/ 

+ 

E- 

+ 

M 

15. 

c 3 h 

+ 

M 

= 

c 2 h 

+ 

C 

+ 

M 

16. 

c 4 H 

+ 

M 


c 3 h 

+ 

C 

+ 

M 


16 



59 


TABLE 3.6 ADDITIONAL ABLATION PRODUCT AND 
COMBUSTION REACTIONS 


CH^, CHgj CH^ , CH Reactions 


1. 

CH. 

4 

« CH 3 + H 

2. 

CH. 

4 

= ch 2 + h 2 

3. 

ch 3 

= CH 2 + H 

4. 

ch 2 

= CH + H 

5. 

ch 2 

+ H = CH + H 2 

6. 

ch : 

= C + H 

7. 

c + 

H 2 CH + 

8. 

ch 2 

+ o - co + h 2 


^2^2 9 ^2^’ Reactions 

1. c 2 h 2 + h = c 2 h + h 2 

2. C 2 H 2 + 0 = CH 2 + CO 

3. C 2 H 2 + OH = C 2 H + H 2 0 

4. C 2 H + H = C 2 + H 2 

5. C 2 H + 0 = CH + CO 

Other Reactions 
1. C 2 + H « C + CH 


CN Reactions 
1. 2CN » C 2 + N 2 


2. CN + 0 = N + CO 
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TABLE 3.7 ADDITIONAL AIR AND HYDROGEN COMBUSTION REACTIONS 


Air Reactions 

1. 0 2 + M - 20 + M 

2. N 2 + M = N + e +M 

3. N0+M«N + 0+ M 

4. NO + 0 = 0 2 + N 

5. N 2 + 0 = NO + N 

6. N + 0 = NO + + e“ 


Hydrogen Combustion Reactions 


1. H + 0 2 = OH + 0 


2. 0 + H 2 = OH + H 


3. OH + H 2 = H 2 0 + H 

4. 20H = H 2 0 + 0 


5. H + OH + M = H 2 0 + M 

6, H + 0 + M = OH + M 



TABLE 3.8 COEFFICIENTS OF THE 
FORWARD REACTION RATE CONSTANTS 


Reaction 

a 4T* 

b- . 
fj 

e fj 

Comments 

1 

8.0 E 18 

.5 

71,000 

i 

2 

4,5 E 11 

.5 

35,000 

Ref . 3.11 

3 

1.0 E 21 

-1.5 

224,900 

3.12 

4 

3.6 E 18 

-.82 

103,000 

3.13 

5 

2.8 E 12 

.5 

313,000 

3.13 

6 

2.9 E 12 

.5 

333,000 

3.13 

7 

2.2 E 20 

-1.0 

131,800 

3.14 

8 

8.4 E 18 

.5 

120,000 

i 

9 

9.5 E 18 

.5 

140,000 

l 

10 

9.5 E 18 

.5 

117,000 

i 

11 

8.5 E 19 

-1.0 ' 

257,900 

3.14 

12 

1.0 E 19 

.5 

190,000 

i 

13 

9.3 E 18 

.5 

155,000 


14 

9 -.4 E 18 

.5 

265,000 

i 

15 

9.5 E 18 

.5 

165,000 

i 

16 

9.5 E 18 

.5 

145,000 

i 


i Activation energy computed using the method described by Semenov 
(Ref. 3.15), and the frequency factor computed using collision 
theory (Ref. 3.16). 
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were the best experimental values or were computed theoretically. With 
these constants, IR — 1.987 cal/gmole - °K and temperature in °K, the 
units of are cm^/gm _ mo i e - sec. 

Originally the method proposed to obtain the equilibrium con- 
stants for the reactions in Table 3.5 was by a curve fit of equilibrium 
data. The chemical equilibrium composition for different values of 
temperature (from l,000°k, to 15,000°K) were computed with a free energy 
minimization chemical equilibrium program. This information was then 
used with Eq. 3.37 to obtain the value of the equilibrium constant for 
different temperatures. The results of this operation are shown in Fig. 
3.1 for the reaction C 3 H J C 2 H + C where In K is plotted versus 1/T 
(dotted line). These actual values of K were then least squares fit 
with an expression of the form of Eq. 3.39. The resulting analytical 
expression for K is also plotted in Fig. 3.1 (solid line). It can be 
seen that using the analytical expression for K instead of the actual 
values introduces significant error, for example at T = 10,000°K the 
percentage error in K is 1000. This difficulty encountered in this re- 


action was found to be typical in some of' the other reactions as well. 

For this reason it was found more desirable to use the second method 

discussed above for obtaining . This was accomplished by obtaining 

AFj 0 from Eq. 3.41 and then using Eq. 3.40 to obtain K ^ . Table 3.9 

contains the values of the coefficients B-, . , B~ . of Eq. 3.41 

*3 z *-3 7,j 

for the reactions in Table 3.5. The equilibrium constant obtained, 
if plotted in Fig. 3.1, is undistinguishable from the curve of the act- 
ual values of K. 

Radiative Properties 


The radiation flux divergence (dq^y/dy) appearing in Eq. -2.61 








TABLE 3.9 


COEFFICIENTS OF THE EQUILIBRIUM CONSTANT CORRELATION 


R EAC T ION ( * ) 


B l,j 

B 2,j 

B 3,j 

B 4,j 

B 5 , j 

Vj 

B 7,j 

T<**» 


0. 

3530E+00— 0. 

7681 E— 03 

0. 5 1 53E— 06— 0 

•9618E-10 

0.5427E— 14 

0.3485E+05 

0.7500E-01 

L 

- 

0. 

9100E-01 0. 

2624E-03- 

0.8700E— 09— 0 

.544 IE— 1 1 

0.2 100E-1 5 

0.4 160E+05 

0.2066E+01 

H 

2 

0. 

1816E+01-0. 

3571 E— 02 

0. 1634E-0S-0 

.27836-09 

0.1617E-13 

0. 1329E+05- 

0.8961E + 01 

L 

- 

0. 

1852E+01 0. 

1 83 1 E— 02— 

0.5850E-06 0 

• 7641E-10 

-0.3417E-14 

0. 1329E+05 

0.1 I26E+02 

H 

3 

0. 

1727E+01-0. 

8C59E-C3 

0.1344E-06 0 

• 4980E-1 1 

-0.9780E— 15 

0 . 1 13 2E+06 

0.4274E+01 

L 


0. 

1 765E+0 l-O. 

1 2 50 E— 02 

0.3816E-06-0 

•3536E-1 0 

0. 1003E-14 

0. U32E+06 

0. 445CE+01 

H 

4 

0* 

1642E+01-0. 

281 0E-03-0.9244E-07 0 

♦2914E-10 

-0.21 12E-14 

0.51 96E+05 

0.2626E+01 

L 


0. 

4S05E+01-0. 

401 8E-02 

0. 1254E-05-0 

•1592E-09 

0.70 13E-14 

0.51966+05- 

0 . 1348E+02 

H 

5 

0. 

2321E+01 0. 

2250E— 03- 

0.9094E-07 0 

•1275E-10 

-0.5056E— 15 

0. 15B0E+06- 

0.1 181E + 02 

L 


0* 

2904E+01-0. 

3576E-03 

0.659 1 E— 07— 0 

• 3159E-1 1 

0. 28 13E-1 6 

0 • 1580E+06- 

0.1538E+02 

H 

6 

0. 

27S3E+01-0. 

3726E-03 

0. 1884E-06-0 

•3765E— 1 0 

0.22 7 IE— 14 

0. 1686E+06- 

0.1 233E+02 

L 


0. 

226 IE +0 I 0. 

38C 86-03- 

0. 12106-06 0 

• 1070E-10 

-0.3032E-15 

0. 1 686E+0 6— 

0*10 00E+ 02 

H 

7 

0. 

1675E+01-0. 

C017E-03-0.6914E-07 0 

•3996E-10 

-0.299 1 E— 1 4 

0. 9406E+05 

0.3698E+01 

L 


0. 

141 4E+01-0. 

8027E-03 

0. 16 976-06-0 

• 1315E-1 0 

0.38316-15 

0. 873 1 E +0 5 

0.5594E + 01 

H 

8 

0. 

2257E+O1-0. 

2955E-02 

0. 1359E-05-0 

.25188-09 

0.16686-13 

0 • 5850E+0 5 

0.1912E+01 

L 


0. 

3753E+01 — 0. 

44 86E-02 

0. 1 768E— 0 5—0 

•2902E-09 

0.1768E-13 

0.65256 +05- 

0.6819E+01 

H 


* SEE TABLE 3.5 FOR REACTIONS 

** TEMPERATURE RANGE L= 1.000-6,000 DEG. K • H= 6,000-15*000 DEG. K 





TABLE 3.9 


COEFFICIENTS OF THE EQUILIBRIUM CONSTANT CORRELATION (Continued) 


REACTION** 1 
9 


B 


j 


0® 3458E + 01 
0, 2653E+0 I ■ 


B ?,j 

*0*38S2E — 02 
0*21 87E— 02 


B 


3 » j 


B 




B 


5,j 


0*1541E-05-0*2492E-09 0* 1406E-1 
0® 66 886—06—0* 8277E— 1 O 0.3596E-1 


10 


0® 20 946+01 ■ 
0 *24526 + 0 1 ■ 


•0*21 55E— 02 
•0 *23826—02 


0* 7 206E— 06— 0 • 1067E-0 9 0*5735E-1 
0*6930 E— 06— O * 8428E— l 0 0*3630E-1 


1 1 


0*202 8E + 01- 
0. 1 323E + 0 1 * 


•0* 1 370E— 02 
0.5403E-03 


0*4461 E— 0 6—0 *562 2E — 1 0 0*2436£-l 
0*16 88E— 06— 0 • 1 85 9E —1 0 0.5931E-1 


12 0*305 3E + 01- 

-0* 1596E+02 


0.4032E-02 
0* 1840E-01- 


0* l 731E-05-0 .2858E-09 0.1621E-1 
0*56 90E-05 0*6B41E-09-0*2842E-l 


1 3 


0*781 OE + OO- 
0. 2560E+00 


0* 1175E-03 
Oo 1581E-03 


-C.8460E-07 0 *28546-1 0-0*2197E-l 
-0.3970E-07 0 *254 2E —1 1 0*29206-1 


14 


0* 2497E+01 
0* 2895E+0 1 ■ 


0.C404E-04- 
•0* 3234E-03 


■0*50 1 1 E— 07 0 *6619E-1 1-0.2271E-1 
0* 49 32E— 0 7— 0 o 25 79E -1 1 0.2381E-1 


1 5 


0*21 32E+0 1 * 
0 * 3483E+ 0 1- 


■ 0* 2840E— 02 
■0«4981E— 02 


0*1 1 38E-05-0.2021E-09 0.133SE-1 
6* 20 72E— 05— 0* 35 88E— 09 0.2234E-1 


1 6 


0. 7030E + 00- 
0 * 2320E + 00 - 


0* 1406E-02 
0® 881 IE-03 


0* 5735E— 06— 0 • 8895E— 1 O 0.46Q9E-1 
0*40906—06—0 *6840 E— 10 0.3694E-1 


* SEE TABLE 3*5 FOR REACTIONS 

** TEMPERATURE RANGE L= 1. 000-6. 000 OEG* K . H= 6.000-15.000 DEG* 



Bfi -i 
6 >J 

B 7,j 

3 

0.6525E+0 5-0 *63356+01 

4 

0*65256+0 5- 

■0.2220E + 01 

4 

,0*5766E+05 

0 • 367 1E+ 01 

4 

0 « 5766E +0 5 

O. 1504E+01 

4 

0* 1289E+06 

0*37736+01 

5 

0*12896+06 

0*7660E+01 

3 

0.8906E+05 

0* 1034E + 01 

3 

0*090 6E+05 

0*11 01E+03 

4 

0.7297E+0S 

0*93786+01 

7 

0 • 72 97E +0 5 

0*1 266E + 02 

5 

0* 1306E+06- 

0*1 216E+02 

6 

0. 1306E+0 6- 

0*1 481E+02 

3 

< 

0 • 806 8E+0 5 

0*546 IE+01 

3 

0 • 806 8E +0 5— 

0* 1B81E+01 

4 

0 • 7220E +0 5 

0.1 162E + 02 

4 

0 • 7220E+05 

0*1 435E+02 


K 


t(**l 

L 

H 

L 

H 

L 

H 

L 

H 

L 

H 

L 

H 

L 

M 

L 

H 


a\ 

Ln 
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is defined as follows (see Eq. 2.14) 
dq. 


= - 2'n ! a (2B - I ) dV' 
dy v v v 


(3.44) 


where 


q„ = radiative flux in a direction normal to the body 

R »y J 

= volumetric absorption coefficient. 


= Plankian radiation intensity,, 

I = spectral radiation intensity, 
v = frequency 

Radiative mechanisms in high temperature gases may be categorized into 
those which produce radiation of a given frequency and those which pro- 
duce radiation over a wide spectrum. The first of these groups of mech- 
anisms is known as a line radiation mechanism (results from electronic 
transition between the bound energy levels xn atoms or molecules) , while 
the second group are commonly referred to as continuum, radiation mech- 
anisms (transfer between ionic states for atomic and molecular species, 
and transitions between two free energy levels in which free electrons 
are present in both the initial and final states). 

One consequence of the existence of line and continuum radiative 
mechanisms is that the volumetric absorption coefficient (a^) for a 
high temperature gas varies discontinuously with wavelength. This fact 
requires that the integration of Eq. 3.44 be carried out on a piece- 
wise basis over the frequency domain. The frequency range is divided 
into regions (bands) within which the discontinuous vairations are 
averaged. Continuum radiation bands are used to represent regions of 
continuous radiation while line radiation bands are used to model the 


effect of the various discontinuous contributions. As in the numerical 



integration of continuous functions, the use of more bands (smaller in- 
tervals) leads to a more accurate representation, of the radiative process. 
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The radiative model used in the present work was developed by 

Engel (Ref. 3.17) from a model originally developed by Wilson (Ref. 3.18). 

The computer program developed by Engel computes both the radiative flux 

(q,, „) } and the radiative flux divergence (dq /dy) for a mixture of air 
K >y R,y 

and ablation products. The model uses nine line frequency bands and 
twelve continuum bands. It considers the following species and radiation 
mechanisms : 


H 

C 

0 

N 


Line and 
Continuum 


°2 C0 
n 2 c 3 

C 2 C 2 H 

H„ 


Continuum 
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CHAPTER 4 


THE SOLUTION METHOD 

The mathematical model of stagnation-line flow contains a series of 
assumptions designed to simplify the mathematics of the problem without 
significantly reducing the accuracy of the solution. However, the result- 
ing equations are still non-linear, integral, and coupled and have variable 
coefficients, therefore an analytical solution cannot be obtained. This 
means that integration of t-he>.equations must be accomplished numerically. 
Before an attempt is made to formulate a numerical solution scheme, it Is 
convenient to nondimensionalize and transform the equations of the stagna- 
tion line model (Table 2.9). After the model has been transformed, the 
behavior of specific terms, equations, and the entire system of equations 
will be investigated so that a solution method may be established. The 
solution method will then be implemented with a computer program. 
NONDIMENSIONALIZATION AND TRANSFORMATION 

Using the dimensionless variables given in Table 4.1, the stagnation 
line model can be written in the dimensionless form given in Table 4.2. 
Notice that the only difference between the dimensionless variables given 
in Table 4.1 and those used for the order of magnitude assesment in Chapter 
2 (Table 2.2) is that in the former * is used in place of p^*. This 
has the effect of introducing into the momentum equation (Eq. 4.2) a Rey- 
nolds Number based upon post-shock density as opposed to the free-stream 
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TABLE 4.1 


DIMENSIONLESS VARIABLES 


p U*“ 
0,0 <® 


„ * 
P 6,o 


= zi 


T* 

6 ,o 


h* 

1 *2 

1 u 

2 00 


\ 1 U*2 


D* 

R* U * 


R »y P6% u * : 

* 

— r oo 

p = JT 
'0,0 


= R* toi 

“i Pp U * 

6,o 

T * 

jl = 6,o JR* 

M. U*2 M.* 

l i 


a .-V- 

i p * u* 

y 6 ,o 00 
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TABLE 4.2 

DIMENSIONLESS STAGNATION LINE MODEL 


EQUATIONS: 

Species Continuity: 


dCi dCi 

d_(pD ~pv — +co i = 0 <i = l,...,n) 

dy 


X-momentum : 


(l d(pv) 
dp dy 

1 d{y dy ] 

Re a dy 


( 4 d(pv) . 
d S' dy ' 

pv 


(4.1) 


'l* ? U-P) <&> -o 

x = 0 


(4.2) 


Energy: 


2k d 2 h 
G p dy 7 


2k 

+ t- pv + ii^] 

dy dy dy 


n 


2k _ , dCi 

+ 2 e v S7 + dT • 1 


dy y ] 


(4.3) 


Caloric Equation of state: 


h = | C A (T) 


(4.4) 
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TABLE 4.2 (CONTINUED) 


Thermal Equation of State: 
p JR T (2 -i) = P 

i % 6 

Boundary Conditions: 

Wall (y = 0) 

1. pv = (pv) w 

2 . = 0 

dy 

3. C.^ = C^,w (i — 1, . . . ,n) 


(4.5) 


1 . 


2 . 


3. 


Shock (y = 6) 
pv = (pv) 5 - v 6 

d(p'v) = 9 

dy ; . 

x ? 0 

(4.6) 

C ± = C ± ^ (i - l,...,n) 


4 . 



4. h “ h. 

0 
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Reynolds number previously used. 

The mathematical model, as originally developed in Chapter 2 (Table 
2.9), included the energy equation in temperature form (Eq. 2.61). During 
the present investigation the early attempts at solving the model concen- 
trated on this formulation. However, after much- computational experimen- 
tation led consistently to failure, it was decided to try a different 

> 

formulation of the energy equation. The energy equation in terms of dim- 
ensionless temperature 




4& W . I kvC „ + i 


dy 


pvCp 


dy 


dy 


2 dv 1 w 

“ pv ' 2 pV hi 


i v- 




dy 


(4,3a) 


dy 


dy 


was transfonned to an enthalpy form by nonditnensionalizing Eq. 2.60 to 
yield 


dT = 1_ dh _ 1_ £ ^i 

dy C p dy C p ± dy 


(4.3b) 


and substituting Eq. 4.3b in Eq. 4.3a to yield Eq. 4.3 (see Table 4.2). 
The model with the temperature form of the energy equation consisted of 
3 + n equations in the unknowns p, v, T and C.^ (i » l,...,n). The modi- 
fied -model includes the enthalpy as an additional unknown (temperature 
continues to be an- unknown since the thermodynamic, transport, radiative' 
and chemical kinetics properties are explicit function of T) , and there- 
fore requires an additional equation. This equation is the caloric eq- 
uation of -state (Eq. 4.4). The boundary conditions on the energy equa- 
tion are now h =- hw at y = 0 and h ""hg at y = 5. 

The equations given in Table 4.2 can now be transformed using the 
Dorodnitsyn transformation defined as: 
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r 

o D dy 

n = -“r = 

J o pdy 


From the above equation 


-° g.4 y 


(4.7) 


dy 


d_ 

dn 


(4.8) 


and this relation yields the equations given in Table 4.3. Notice that the 
Dorodnitsyn transformation converts the independent variable y to the new 
independent variable n* Before proceeding to discuss the numerical solu- 
tion to Eqs. 4.9 - 4.11 and Eqs. 4.4 and 4.5 it is convenient to rewrite 
the equations in a form more suitable for numerical solution. 

Species continuity: 

Expanding the second order term in Eq. 4.9 and rearranging gives 


2 ~ ’ 2 " d(^ 2 D) 


+[ 


dC, 


(4.13) 


dq 


_ 6 p V ] __± + A ( 0 ^ = o (i « 1, . . . ,n) 


X-momentum: 

Let us define a riew dependent variable as follows 
£ = 


'Ate IX 

<in > 


n = l 


(4.14) 


therefore 


d(pv) 

ii . ^3. 

dn 


(llpvh 

K dn ; 


(4.15) 

n. c i 

When the global continuity equation is nondimensionalized and transformed 
into n - space the result is 


2 (MS) 

3* 


_ 1 d(&v) 


- dn 

6 


(4.16) 
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TABLE 4.3 


TRANSFORMED STAGNATION LINE MODEL 


EQUATIONS : 

Species Continuity: 


2 dC i 
d^ D d5T’ 
dn 


X dC i + & 

" 6 p * 7 *r + p w i = 0 


(i — 1,... ,n) 


(4.9) 


X-momentum : 


d-LoU “ 4 e ^‘] Z T , d 2 (o'v) 

d dn - « R pv 

o dn 


(4.10) 


6R d(£vl' 
2 6 Mt) } 


46 R * (1-p) A - 0 

e 6 P dx x - 0 


Energy : 


2 ^2pk) 

^ Pk, dh + f iiic p > 

6 C P V d * dn 


(4,11) 


dqj 
£ dy 


^ J^ +2ov ^ + 


2 dv , 1 
pv * , 


dn 


Caloric., Equation of State: 


h = 2 C.H. 

i 11 


* 


(4.4) 
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TABLE 4.3 (CONTINUED) 


Thermal Equation of State: 


- n C,- 
p 1R T (E 



Boundary Conditions: 
Wall (n » 0) 

1. = (pv) w 


2 - = 0 
dn- 


3. C ± *= C ± w (i = 1,. .. ,n) 

4 . h = h 

w 


(4.5) 


Shock (n = 1) 


1. pv = (pv) 6 = v 6 


(4.12) 


2 . 


d (pv) 
dn 


3u. 

" ~ 26 <3T> 


x = 0 


3. C. = C. _ (i = 1, . . . ,n) 
i i,S 



4. 
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Substitution of Eq.' 4.16 in Eqs. 4.14 and 4.15 gives 

f = _ 

26 |- S »° 

3x 


( — ) 

df 3x x = Q 

dn . 

.3u6. 

C 3x } _ - 

x = 0 


Making use of L'Rospital's rule. 


lim 


u 

u- 


x ■+ 0 6 


A 

3x -x = o 
3u 

( — -) 

X = o 


(4.17) 


(4.18) 


(4.19) 


and 


£ - um&- 

dn x+ o u 5 


follows from Eqs. 4.18 and 4.19. 

Substitution of Eq. 4.17 in Eq. 4.10 gives 


d 2 f 


^^> + 11 7 [2 £ pt - M) 2 

dn e_ 3x 1 dn z Mir 


+ 2 £ (1 - p) 


d£ 2 

Mx' 


X = o 


= o 


3u. 

'3x ; 


The boundary conditions for this equation are 
Wall (ri *. o) : 


(4.20) 


(4.21) 


Shock (n = 1) ; 


f « - fov)w 

26 9u 6,o 
3x 


df 

dn 


= o 


1. f 


26 8t *S\o 

3 x 


2 1 
dn- 1 


2 . 
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The momentum equation, being third order, can be expanded into two coupled 
equations; one first order and the other second order by defining 


Z 


1 df 
6 dn 


(4.22) 


and substituting into Eq. 4.21 


*23u. 


d~3 • ^ S,o f , dCou) , dZ 

6 


O" dS? + [2E e, ° at ‘ ■ an J dn 


.3 STu, 


A 

'dx'' 

-R 6 5jp a 2 + 2R 6 fi- (1 - p) Q X "—° = 0 

e 6 9X e 6 P au 6,o 

3x 

The resulting boundary conditions for Eqs. 4.22 and 4.23 are 
Wall (q = 0) : Shock (q = 1) : 


(4.23) 


1.' f - £ - - 

w 26 3u 6 ,o 
3x 


v. 


^ f = f 6 = -3^ 


26 6,o 

3 x 


2. Z - 0 


2. S = 1/6 


46 was discussed in Chapter 2, four boundary conditions need to be satis- 
fied by the x - momentum equation, three because the equation is third 
order and the other since the shock stand-off distance (6) is unknown. 

In terms of Eqs. 4.22 and 4.23, this means that these equations must sat- 
isfy all four of Eqs. 4.24. This is' done in practice by applying the two 
boundary conditions on Z and f shown above to Eqs. 4.23 and 4.22, respect- 
ively. Integration of Eq. 4,22 gives 

~ q 

f »= 6 J S dq’+ f w (4.25) 

o 

Evaluating this relation at q = 1 and solving for 6 yields 



o 


- f 
w 

Z dq 


6 


(4.26) 
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It fs easily seen that substitution of Eqs. 4.25 and 4,26 in Eq. 4.23 
yields a second order, non-linear, integro-differential equation with 3 

as the only dependent variable (assuming that p(r|) and y(q) are known). 


This equation can be solved for 3 and then Eq. 4.25 is used to complete 
the solution to the problem. An alternative method of solution used in 
the present work, is iteration: guess a value of 6 and solve Eqs. 4.23 


and 4.25 for f and 3, use the computed 3 in Eq. 4.26 to obtain a new val- 
ue of <5 and repeat the above procedure using the new value of g as guess 
until the guessed and computed vales of 6 are equal. 

Energy: 

Expansion of the second term on the right-hand side of Eq. 4.11 gives 

h 


1 iLl'l- - p2D) '! h i 


dC_i v 

dq 


dC, 


6 dn 


,2 D k 2_ w ?. uo i> . 
1 d[ C„ " p dn ^ 

= Id n r 


,2pk 2„, dC i 1 2 k , d2c i s 

i (.r p (? ~7T ~zr) + r fcr- - p D) (£ h 

1 c p i dq dq ~ C i 1 d H 


(4.27) 


or 




2 pk d^h , 1 d'C D '.dh 

- C ~ dq dn 


5 C P d 1 


(4.28) 


9 ir n dC 

ai !!**£+ 2 ., 2 ^ + i di^ _ -p 2DK f h i dTh 

p dy ^ dq ; dq 

0 

+ ” S- - p 2 D)(? — ”) + ~ ( ^P~ - p 2 D)(E h ± 

~ c p i d h d n ~ c p M i 1 dn 

A summary of the dimensionless transformed equations is given in 
Table 4.4. 

METHODS OF COMPUTING REACTING FLOWS 


Historically the first attempts at solving the finite-rate chemistry 
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TABLE 4.4 


SUMMARY OF DIMENSIONLESS TRANSFORMED EQUATIONS 


EQUATIONS : 

Species Continuity: 


„ d 2 C ,,.2 . ~ dc -i 

P'D — + [ - yjP- U) - ~ 6 p’v] + ~ = 0 (i n) (4.13) 


“rr 


dp p i 


X-Momentum : 


f fii 

26 8u 


3x 


6,o 


(4.17) 


p^ +I2 S 


.3 3u 


- R . <S (g/^)2 2 + 2R^ 6 (1 - p“) 


v 


x = o 


e 6 p 


3u 


= 0 


6 , o 


3x 


(4.23) 


f - 6 / 1 2 dp + f , 
o 


w 


(4.25) 


f, - f 

0 w 

I 1 2 dp 

o 


6 


(4.26) 



TABLE 4.4 
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(4.5) 
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problem were concentrated upon one-dimensional flows with no diffusion. 
The equations describing this physical situation are of the following 
form: 

* f i frl,y 2 y n> 

dt 

(i = 1,2, ... ,n) (4.29) 


y ± Co) 



where the concentrations of species in an n-species system (y^,...^ 1 !) are 
the dependent variables and time (t) is the independent variable. These eq- 
uations are non-linear, coupled through the right-hand-side term (f ..., 
f n ), and are subject to initial boundary conditions of the first kind. In 
attempting to numerically solve the above set of equations it was found 
that the classical integration techniques (Euler, Runge-Kutta, etc.) could 
be used to compute the solution for cases where the reaction rates were re- 
latively slow, but for fast reaction rates (those occurring when the flow 
is near chemical equilibrium) the time required to integrate the equations 
became exhorbitant. When the latter condition existed the equations were 
referred to as ’'stiff” equations by Curtiss and Hirschf elder (Ref. 4,1) 
because this type of problem arises also in overcontrolled servomechanical 
systems. 

Numerical techniques for solving differential equations are generally 
judged on the basis of stability, accuracy, and speed of computation. Sta- 
bility means that the numerical solution must follow the general form of 
the true solution. Accuracy measures how closely the numerical solution 
approximates the true solution. It should be clear that an algorithm may 
fee stable but inaccurate. The computational speed depends upon the allow- 
able stepsize and on the computational effort required to perform each step. 



The solution of Eqs. 4.29 is normally carried out by locally line- 
arizing the equations and solving at each step the resulting set of linear 
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equations. The linearization is carried out by expanding each f^ in a 
truncated Taylor series about a local point t to yield 
dy i n 3fi 

dT - £ i,m + * , <!fj> ~ 7j, m > « " M - 30 > 

MV J Ul 


Q y i n 

■— = E A. . Y. + B. ( i - l f . 
dt j = x ij J i 


(4.31) 


n 

A,. = («“) and Bi = F. - E 
i-J m -j 


(Mi) y 

^ 3yj m i,m 


Equation 4.31 may be written as 


it - A y + B 


(4.32) 


using matrix notation where y = [y^, y^, 




B = [B , B , . • .B ] 
12 n 


Hi !£i ... !£i 

a yi 3y 2 3y n 


8f 2 3f 2 ... af 2 
3yj_ 8y 2 3Yn 


«n 9f n ... 


[Ml M2 MnJ 

Techniques for solving Eq. 4.32 are generally classified as explicit, 
implicit and locally exact. Explicit techniques are those for which the 
values of each of the dependent variables at any step may be expressed ex- 
plicitly in terms of the dependent variables at preceeding steps. All 



85 


'"'predictor-corrector- methods , as well as all variants of the Runge-Kutta 
method are explicit. Implicit techniques are those for which the values 
of each of the variables at any step depends on itself and on the other 
dependent variables at that step as well as on the dependent variables at 
preceeding steps. An implicit technique when applied to Eq. 4.32 always 
results in a set of linear algebraic simultaneous equations which must be 
solved for the vector y at each step. Locally exact techniques solve Eq. 
4.32 exactly to yield 

* 

n 

y i = j 6XP (X j h) + V t,V ( 1 = 1 n) (4 * 33) 

where the are integration constants, the Aj are the eigenvalues of 
h is the steps ize and are particular solutions to Eq. 4.32. This so- 

lution assumes that all the eigenvalues of A are distinct. 

All explicit techniques have finite stability boundaries, that is, 
they are stable for some stepsizes and unstable for others. Under condi- 
tions of stiffness, explicit techniques must use a very small stepsize in 
order to remain stable. On the other hand, they can be very accurate and 
require a modest degree of computational effort to compute a step. Some 
implicit techniques are unconditionally stable, in other words, the al- 
lowable stepsize is not restricted by stability requirements. However, 
their accuracy is generally limited and, because a set of linear algebraic 
equations must be solved, they require a fair amount of computational 

effort to perform a step. Locally exact methods are unconditionally 
stable and very accurate but, because the eigenvalues of A must be com- 

J t w 

puted for each step, require a large degree of computational effort po 
compute a step. 

The numerical solution of stiff equations has been studied exten- 
sively and a number of techniques were proposed to cope with this problem 
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(Refs. 4.1 - 4.15) . 

Curtiss and Hirschf elder (Ref. 4.1) proposed an implicit technique 
for solving a single stiff equation. Emanuel (Ref. 4.2) studied the ap- 
plication of predictor-corrector and Runge-Kut-ta techniques to the chem- 
ical equations in near equilibrium flows. The locally exact method was 
applied by Moretti (Ref. 4.3) to the problem of combustion of hydrogen 
in air at constant pressure. He made a comparison of the computing time 
required using the locally exact method and the fourth order Runge-Kutta 
method . 


Treanor (Ref. 4.5) developed an explicit method for solving non- 
linear stiff equations. It assumes that the basic equations can be app- 
roximated by a linearized form, but not the form given in Eqs. 4.30. In- 
stead they are linearized as follows: 


yi (P.) S, + 
= - x m i 


dt 


(A.) 
x m 


(i -=f.,l i * # • 


(4.34) 


+ (B ) h + (C.) h A 
i m i m 

where the P^, A^, and are constants in a given step but are allowed 
to vary from step to step. 

Lomax and Bailey (Ref. 4.6) and Bailey (Ref. 4.12) studied the so- 
lution to the problem of air flow behind a normal shock by applying dif- 


ferent numerical techniques. The techniques utilized were the explicit 
modified Euler method* the implicit modified Euler method and Treanor *s 
method . 


Magnus and Schechter (Ref. 4.15) developed a unified theory of 
numerical techniques based on rational approximations to the exponential 
terms in Eqs. 4.33. They showed that a number of explicit and implicit 
techniques are really rational approximations of different order. The 
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implicit methods studied, which include the method of collocation and the 
subdomain method, were shown to be unconditionally stable and the sub- 
domain method was applied to the problems of hydrogen-air combustion and 
dissociating air. 

From the work that has been carried out it has become evident that 
there is no "best" method for solving Eqs. 4.29, The optimum method to 
be used depends upon the degree of "stiffness" of the equations. If the 
flow is essentially frozen, classical explicit techniques such as fourth 
order Runge-Kutta are better than any implicit or locally exact method 
because they would be accurate and faster. If the flow is near chemical 
equilibrium, an unconditionally stable implicit technique is optimum be- 
cause the stepsize would be restricted only by the truncation error. In 
general, the locally exact technique is less convenient than the explicit 
or implicit methods, but it yields more information about the system of 
equations . 

This discussion has assumed that the problem represented by Eqs. 
4.29 is "well behaved", this means that the solution is inherently stable, 
and our discussion of stability was centered around what is called in- 
duced instability, that is, instability induced by the numerical techni- 
que used. However, it can also happen that the problem is "ill posed" 
or inherently unstable (Ref. 4.16). This can happen, for example, when 
the general solution to Eqs. 4.29 contains exponentially growing terms 
which must be suppresed to fulfill the boundary conditions imposed on 
the problem. For example, the general solution to the equation 


= 

dt 


y 


is given by 


t 


y 


(4.35) 


- C e 11 + t +1 


(4.36) 
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where C is an integration constant. If the initial condition is given as 
y (o) =1, which makes C = 0 so that the solution is a simple linear term 
growing only slowly in comparison with the exponential term, any numerical 
technique for solving Eq. 4.35 will introduce the exponential term into 
the computed solution resulting in inherent instability. 

This type of condition is common' in problems described by differ- 
ential equations of the type 


D ± (x) d y-t E i( x ) d Yi 


d x 2 


dx 


(i = 1 , . . . , n) (4.37) 


* F i<V *2. •••*„> 

where the and are functions of the independent variable x; the 


are nonlinear functions of y^> y2>* 
following boundary conditions 

..,y n , and Eqs. 

4.37 are subject to the 

£ 

o 

ii 

& 

o 

(i = 1, . . . ,n) 

(4.38) 

Yi(l) = y if i 

(i = 1,.,., n) 

(4.39) 


One physical situation described by Eqs. 4.37 - 4.39 is that arising from 
similar boundary layer flows including mass diffusion and finite-rate 


chemical reactions. 

When the equations are inherently unstable the methods discussed a— 
bove for solving Eqs. 4.29 are not effective. Such methods are usually re- 
ferred to as "marching” techniques because the solution starts at one of 
the boundaries and, for each step taken, the solution marches' towards the 
other boundary. When marching techniques are applied to a two -point 
boundary value problem, such as that represented by' Eqs. 4.37 - 4.39, it 
is necessary to transform the problem into an initial value problem. 
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' dyi 

This is accomplished by guessing the value of the at x = 0 and using, 
the marching technique to compute the at x = 1, if the computed at 
x = 1 differs from the desired values, it is necessary to iterate until the 
boundary conditions at x = 1 are met. 

Because of the problems associated with the use of marching tech- 
niques, boundary layer flow problems including mass diffusion and finite- 
rate chemical reactions have been approached with what are known as 
"globally implicit" techniques. These are techniques which work directly 
with the two-point boundary value problem and produce in one step the sol- 
ution over the domain of interest. 

iky and Kay (Ref. 4.16) used a globally implicit method to solve 
the equations describing a laminar, dissociating, nitrogen boundary layer 
at the stagnation point of an axisymmetric body. The boundary layer eq- 
uations were first linearized about an initial trial solution (or pre- 
vious iteration) in such a way that the equations are uncoupled (except 
implicitly through the trial solution). The equations were then cast in- 
to an implicit finite-difference form and solved in sequence, the trial 
solutions being updated after each solution had been obtained. This se- 
quence of solutions was continued until the original differential equa- 
tions were satisfied to the desired degree of accuracy. 

Blottner (Ref. 4.17) studied techniques for solving the viscous 
shock layer flow at the stagnation point of a blunt body for air with 
finite-rate chemical reactions. He found that a globally implicit tech- 
nique, such as the one used by Fay and Kay, produced converged solutions 
in a reasonable amount of time. Adams, et. al., (Ref. 4.18) applied the 
technique used by Fay and Kay to compute the inviscid and viscid flow 
fields around spherically blunted cone geometries, including injection of 
inert argon or chemically reacting carbon dioxide with chemical reactions 
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taking place at a finite -rate. 

Liu (Ref. 4.19) studied the problem of hydrogen injection into air 
at an axisymmetric point including mass diffusion and non-equilibrium 
chemistry. He studied the applicability of various techniques, such as 
an implicit inarching technique developed by Lomax (Ref, 4.10) and the 
globally implicit method used by Fay and Kay, and found that some of the 
methods could not be applied to the reacting flow problem and those that 
could be applied did not work for near chemical equilibrium flows. 

To be successful, any proposed solution method to the stagnation- 
line, finite-rate equations must be in accord with these previous studies. 
DECOUPLING THE EQUATIONS 

Although it is desirable to solve the equations in Table 4.4 in a 
coupled manner, practical considerations make it necessary to decouple 
them. It must be noticed that any attempt to solve the equations coupled 
would require the simultaneous solution of 7 + n (in our problem n = 19) 
non-linear, ordinary integro-dif f erential and linear integral and alge- 
braic equations. 

An illustration of how coupled equations can be uncoupled is given 
by considering the problem of solving 


dLi _ 
dt 


a L + a L 
11 1 12 2 


(4.40) 


dL2 

dt 


a L + a L 
21 1 22 


(4.41) 


where L-^ and L 2 are the dependent variables and the a^'s are constants. 
If the function L 2 is guessed, O^^ 0 )), then this value can be used in 
Eq. 4.40 to give 


dt 


( 1 ) 


( 1 ) 


" a ll L 


" a I2 L 2 


(o) 


(4.42) 
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where ^ is a known function of t. This equation can be solved for 

1'-^^ ^ and this function can be used as a guess for in Eq. 4.41 to 
give 


( 1 ) 


dL, 

dt 


- a L (1) = a L (1) 
22 2 21 b l 


(4.43) 


The function h ^ obtained from solving the equation above can then be 
compared to L 2 ^°^; if they are equal the problem is solved, if not 

is used as the new and the procedure described above is repeated. 

It is easy to see that the price that must be paid for reducing the or- 

i 

1 

iglnal problem to that posed by Eqs, 4.42 and 4.43 is, in general, a 
greater amount of computation needed. 

The scheme used to decouple the equations in Table 4.4 is given in 
Figure 4.1 while Ta&le 4.5 contains the uncoupled equations. First of 

all, values of 6,^°|, P^°\ (Py)^°\ and (i *® l,...,n) are guessed. 

With these functions it is possible to solve Eqs. 4.44 and 4.45 for f^ 

and 3^ (this section of the flowchart is that enclosed by the dotted 
lines), this is accomplished by guessing f(°) and solving Eq. 4.44 for 

then Eq, 4.45 is solved for f^. If we proceed to 

solve for v^ ^ and 6^ if not, f^°^ and are used to compute the 

next guess (f^°^ = (1 - A^) f° + A^f^^, where 0 < A^ _< 1) and the pro- 
cess is repeated. Once f^ and 3^ are known, Eqs. 4.46 and 4.47 are 

solved for v v *and <5^ , respectively. , If 6^ =<5^° the iterative process 









SOLVE EQ. 4,47 FOR S 


y(l).|(0)> 


SOLVE ENERGY EQ. (EQ.4.48) 
AND CALORIC EQ. OF STATE 
(EQ. 4.50) FOR h(>) AND T* 1 ) 


M 


OUTPUT 

RESULTS 


See Figure 4.3 


SOLVE SPECIES EQ. (EQ. 4.49) 

AND THERMAL EQ. OF STATE (EQ. 4.30a ) 
FOR C^) (i = 1, . . . ,n), AND /»(0 


See Figure 4.4 


COMPUTE *0) 


f (0) = f (0 

Cl ‘ 




Figure 4.1 Problem Flowchart (continued) 
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TABLE 4.5 

DECOUPLED EQUATIONS 


X ~ Momentum 

P (0 V 0) d 2 g (1) + [ 2 Re 6 <$ (0)2 f (0) + d^_ (0) p (0) )3 dZ (i) 


d n 


3 X 


d n dn 


(4.44) 


—Re ^6 3 8ji 


2 _ /^&) 2 
( — + 2 Re 6 ^^ B — (1 - p) — ^ — X ~ ® 

s v 1 « (0) u p) an. n . = o 

3 X P 8 >0 

3 X 


f (l> = 

v (1 > - 


6 (0 > / n 2 (1) dn + fa 
•J n 


- 2 « ( °) f (1> 

( 0 ) 3 * 



(4.45) 

(4.46) 

(4.47) 


Energy : 


o y°> A (1) 

2 ( £k) i_h + j . p vw vW + 

J(l) ^ d n 


2pk (0) 

(o)„d) A _i__ d r% i 
(1) dT P 


dh 


(1) 


dn 


26 


( 1 ) 


TO) dy 


d< » (0> R .v + 2p (0 V 1 > 2 ) dv<» t 1 


dn 


4“ 

_e. 


- P 2 D) (0) 


;(1) dTt 


(4.48) 


( S h, d Ci ) (0) 1 
1 d n -i 
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TABLE 4.5 (Continued) 


+ 1 ,2£k 2_,<0) ,a 


dhi dCi C0) + 1 


;(D V <¥ 


(-tr- p ' (? dir d r> 


( 1 ) 


( 2£k_ p 2 D) (0) 

cp 


(f hi d 2 Ci )° 
dn 2 


Species Continuity: 


,<"> Vl> dV 1 ’ + 

% 1 ■ 

d n 2 


d( 0 ( °> D (1 >) 




dn 


d C M 

dn 


+ «,<» = 0 

„< 0 > 


Caloric Equation of State: 


,(1> _ 


fn {h 


(1) 


Cl 


(0) 




Thermal Equation of State: 

( 1 ) 6 




M. 


(4.49) 


(4.50) 


(4.50a) 
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is ended and the results output, if not the values of C.^°^ (i = 1, 

...,n), and 5^ are used in the energy equation (Eq. 4.48) to solve 

for ^ , and the caloric equation of state (Eq. 4.50) is solved for . 
Then the species equation (Eq. 4.49) and the thermal equation of state 

(Eq. 4.50a) are solved for (i = l,...n) and p . Once the temper- 

ature and concentration profiles are known, the new viscosity (p^^) is 

computed, and 6^, p ^ , (pu) ^ and (i=l, ...,n) can be used as 

guesses for the next iteration. The flowcharts for the operations noted 
in Figure 4.1 are given in Figures 4,2 - 4.4 to be developed below. 
LINEARIZATION OF THE EQUATIONS 

In the previous section the equations were decoupled (Table 4.5) j 
this has the effect of making each equation independent from the rest 
except through the iterative process. However, the equations are still 
nonlinear with variable coefficients. In considering the kinds of num- 
erical techniques that may be used to solve these equations, the fact 
that the boundary conditions are given on two different points in the 
flow-field suggests that "globally implicit" finite-difference approxi- 
mations would be preferable to so-called "shooting" or "marching 11 tech- 
niques since the latter requires specifications of all boundary condi- 
tions on one point in the flow-field. As used m this work globally 
implicit means that each differential equation is substituted by finite- 
difference approximations over the entire flow-field, and this results 
in a set of simultaneous algebraic equations- that when solved yield the 
value of the dependent variable at different points in the flow field. 

If this finite-difference technique is applied directly to the non- 
linear equations the problem is reduced to solving a set of non-linear 
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algebraic equations; however, due to the present lack of efficient 
techniques for solving sets of non-linear algebraic equations it is 
more convenient to linearize the differential equations before they are 
written in finite-difference form. When this is done the problem is 
reduced to obtaining the solution to a set of linear algebraic equations, 
a much easier problem. 

Consider a non-linear ordinary differential equation of the form 


dT {t} 

£ - * «■>'> 


(4.51) 


where g {L,t} is the non-linear term. It is evident that there are var- 
ious ways of linearizing this equation; the simplest one being to use 
an approximation to the solution l/°^ to write 


dL<l) - e /T (0) 

dT - 8 {L 


t} 


(4.25) 


This equation is now linear since is a known function of t, it 

may be solved for and if the answer has been found, 

if not is used as the new guess and the process is repeated. An- 

other commonly used linearizing technique is to expand the non-linear 

term in Eq. 4.51 about the function m a Taylor series truncated 

after the second term to yield 


g {L 


(1) , t} * g {L (o) , t) + 


3g{L (o) , t} (L (1) -‘L (0) ) 


3t 


(4.53) 
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and by substitution of this relation in Eq, 4,51 


dl/ 1 ^ ^ 

dt at 



t} - 9g (L 

at 


( 0 ) 


t} L 


( 0 ) 


(4.54) 


This technique is known as quasilinerization (Refs. 4.20 and 4.21), and 

has been used extensively to solve problems in fluid and orbital mech- 

( K \ 

anics. It can be demonstrated that if the sequence {L v '} converges, 
that is if lim {L v - L, it does it monotonically (for example if 

< L for all t monotonicity of convergence means L ^ _< . . . 

<_ L, and quadratically 


l (K + D 




(4.55) 


where N is a constant. Although these two properties make the technique 
extremely powerful, in practice the computation of 3g/3t may be very 
costly. Therefore, in some instances the simpler technique given by 
Eq. 4.52 may be preferable. 

In the present application use will be made of both the simple 
lineatization and quasilinearization techniques. 

X - momentum^ 

2 

(1) 

The non-linear term in Eq. 4.44 is the Z term, and quasiliner- 
ization yields 


+ 2Z^ (Z^ - Z^) 

= 2z <°> z <q - z <°> 2 


(4.56) 


when this relation is substituted in Eq. 4.44 the result is 

2 


2 (i) r 

d Z Z } ‘ . 2 Re*. S 

2 + — 

* \ L (o) « 


?(0 ) 

W 


an 


6 0 


3 X 


f (Q) + d 


(p (0) „<°> 


>>" 


dz 

dh 


( 1 ) 
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-2 Re g 6 


(0)3 


P ( 0 V 0) 


3 y s o z^ z^ 

3 X 


(4.57) 


-2 Re^ 6 (0) 




3 X 





This equation is now linear and may be solved as shown in Figure 4.2. 
Energy : 

The energy equation (Eq. 4.48) is linear in h^ , and therefore 
linearization is not needed. Inversion* -of the caloric equation of state 
is accomplished as follows: 

From Eq. 4.4 


= ? C ^ h {T} 

i 1 1 


(4.4) 


therefore the problem consists of finding a root of the equation 


G{T) - h (1) - ? C < 0) h. {T} 

^ 1 X 


Since the h^{T} are nonlinear functions of T, the Newton-Raphson tech- 


nique was used: 

o 


: - G {I®} + dG® (I (K + » - T«>) 

dT 


t (K + 1) ^ T (K) = - 




dG 


(K) 


AT 


00 


dT 

I<« -? c < 0) h 4 (t ( k >) h (1) - h (K ) 

i 1 1 C (K) 

p 


- E C. (0 ^ C (T ^) 
i i pi 



5E 



Figure 4.2 Solution of X-momentum Equation 
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Using underelexation to obtain convergence 

x (K + D - x (K) + x 3 at ( k) 

- T 00 , , h (1) - h <k) 0 < X £ 1 (4.58) 

" T 3 c (K) 3 


Once T v has converged it becomes the new 

The flowchart for the solution of the equation of energy and the 
caloric equation of state for h^ and is given in Fig. 4.3. 

Species Continuity: 

The reaction rate term in Eq. 4.49 is non-linear, therefore, 
quasilinearization gives 

M U> . <0> + (c.<» -C.<°>> (i-i. ...,n) (4.59) 

1 1 3C. 1 1 

l 


and the species equation becomes 


p(0) D (1) f <0 


d n 


a (p (0 > d (1) 


j(» p (0) v (i) 


d n 


d C 


( 1 ) 


d n 


(i = 1, . . . , n) 


+ “ (1 > 2 s “ t C0> Cl a) = " ( « 2 


p <°) 3C i 


( 0 ) 


1 **1 ) c (0) -w. (0) ) (4.60) 

\3 C. 1 / 

' i 


The scheme for solving the equation above and the thermal equation of 
state is given in Figure 4.4. 

NUMERICAL SOLUTION OF THE EQUATIONS 

As written in the previous section, the conservation equations 
(Eqs. 4.57, 4.58, and 4.60) are of the form 



L02 



Figure 4.3 Solution of Energy Equation 
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“l & + “2 & + »3 W * “4 

dn 2 dn 


(4.61) 


where ct_ a„ a- and a, are functions of ri . The numerical solution 
1 5 2 , 3, 4 

of Eq. 4.61 was accomplished by substituting finite-difference approxi- 
mations for the derivatives in the equation. These approximations were 
obtained as follows : Knowing the value of W and its derivatives at any 
point n/in the flow-field it is possible to write the Taylor series 


expression for the value of W at point n^^ 

, 2 „ 2 


dW. 

Vi * V S 


dW .r, 1 -n, , 

.l-n.) + ~ 2 - ( -“ U — + 0 <Vl - 

1 3 dn 2 J 1 


V 


^ (4.62) 

where - W (n^). knowing and its- derivatives it is also possible 


to write an expression for W 


j+l 


w, . w. , dw. (n..,-n.) . n , \3 

j+l = j + ‘j+l j +0 (nj +1 -nj ) 


-> dn 


(4.63) 


Neglecting higher order terms and solving Eqs. 4.62 and 4.63 first for 
dW^/dn and then for d^W^/dn^ yields 


dW. 

_J. 

dp 


A n±_i_ 


An. (4n j +An j _ 1 ) 


w 


j+l 


(An. - An. p 

An 3 An j-i 


w. 


(4.64) 


(-An.) 


An j-i (An j + An j-i) 


w. 

3-1 
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d 2 W, 


dn 


w 


An j (An j + 


j+i + 


(~ 2 ) 

An. An.^ 


w. 


(4.65) 


An ; ._ 1 (Aru + Ar lj_i) 


w. . 

3-1 


where An^ = n j+1 - n... 


When Eq. 4.61 is evaluated at and Eqs. 4.64 and 4.65 are introduced 
the result is 


A ^j_l ^ Ar| j + Ari j-1^ J 

+ “ 3 . 3 ] 


w 


3-1 + 


-^.1 + (an 1 ' 

41. iTl J _ 1 




2ct l.j + An J-l n 2,j W 

An.. (Arij + An^-j) 


1+1 “a. . 

J A»1 


(4.66) 


Equation 4.66 is of the form 


A.W. . + B.W. + C.W. = D. 

3 j-l j j j j+l j 


(4.67) 


Letting n =0 and n =1 this means that W and W are known since they 
0 m 0 m 3 

are boundary conditions, when Eq. 4.67 is written for 1 <_ j £ (m-1) the 

resulting set of equations is given in matrix notation by 
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(4.68) 


The Thomas algorithm for tridiagonal matrices (Ref. 4.22) is a very 
efficient scheme for solving sets of linear algebraic equations invol-'- 
ving tridiagonal matrices and has been used in this work to solve Eq. 
4.68. 

The solution of Equations (4.68) was accomplished by writing a 
computer program to perform the necessary calculations. This program 
(SLAC- Stagnation Line Analysis with Chemistry) includes the thermo- 
dynamic, transport, kinetic, and radiative properties discussed in 
Chapter 3, as well as, a subroutine to calculate local chemical equi- 
librium. The equilibrium calculation uses a free energy minimization 
technique developed by Del Valle and Pike (Ref. 4.23). SLAC is dis- 
cussed in Appendix A and listed in Appendix B. 

This program is a tool which models the stagnation region of an 
ablator-protected entry vehicle. Adequate boundary-conditions to 
describe the bow-shock and ablating surface, as described herein, must 
be specified to utilize this program. 
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CHAPTER 5 


RESULTS OF STAGNATION REGION HEATING ANALYSIS 


The SLAC program was used to compute the finite-rate and equili- 
brium-chemistry stagnation- line heating rate of a 9 foot entry vehicle 
moving at 50,000 feet/second when the free-stream air density is 8.85 

_8 3 

xlO slugs/ft and the mass injection rate (p v /p U ) equals .05. 

The vehicle is protected by a phenolic-nylon ablator with the following 
elemental composition (elemental mass fraction) : 73.03% carbon, 7.29% 
hydrogen, 4.96% nitrogen and 14.72% oxygen. The char surface was 
assumed to be at the sublimation temperature of carbon at .1 atmosphere 
pressure (Tw = 3,450°K). The shock was assumed to be concentric 




These flight conditions and the rate of mass injection were used 
because they correspond to the conditions obtained by Engel (Ref. 5.1) 
when the ablator and the equilibrium shock layer solutions are coupled. 
In other words, according to his results, a vehicle moving under the 
flight conditions listed above and protected by phenolic-nylon ablates 
at a 5% rate. Furthermore, Esch (Ref. 5.2) also obtained chemical 
equibibrium results for the same flight conditions and injection rate. 
This means that the equilibrium results obtained during the present work 
may be compared to those obtained by the two investigators mentioned 
above. The comparison is more valid than in most cases since the same 
routine was used by all the investigators to solve the Rankine-Hugoniot 
equations. This means that the shock boundary conditions used were 
identical. In addition, the radiation model used was the same. 
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A complete solution to this entry-heating problem would admit non- 
equilibrium chemistry effects in the ablator response analysis. Such 
considerations -could give different ablator species and (outside) wall 
temperatures. Even if the ablator effluent into the shock layer were 
in equilibrium, an* entire new series of calculations similar to the 

ones done by .Engel (Ref. 5.1) should be performed to determine the non- 
equilibrium ppupled solution. Ablator non- equilibrium is not in the scope 
of this research, and non-equilibrium coupling must await the development 
of an adequate non- equilibrium shock layer analysis. This later deve- 
lopment is precisely the subject of this research. 

The wall and shock boundary conditions used in this study are 
given in Table 5.1. Table 5.2 presents a summary of the flight con- 
ditions used and the shock layer properties obtained. Since changes 
in flight conditions strongly affect the behavior of both chemical 
kinetics and shock layer calculations, the model and the solution 
scheme developed in this work should be studied over a wide range of 
flight conditions to determine its adequacy. In the present work only 
one set of flight conditions was considered, but it is believed that 
since the conditions are typical of those encountered during atmos- 
pheric entry, the model and its solution should work for a range of 
conditions similar to the ones considered. 

COMPUTATION OF BODY HEATING RATE 

Since computation of body heating rates for equilibrium and finite- 
rate chemistry was one of the stated objectives of this investigation, 
it is proper to discuss how this computation is performed. 

As was discussed in Chapter 2, the stagnation line energy boundary 
condition at the body surface is given in dimensional form by 
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TABLE 5.1 WALL AND SHOCK BOUNDARY CONDITIONS 


Wall (y = 0) 


Shock ( y = 5) 


1 . 


p v- - 2.23 x 10 


-4 


siss. 

f t 2 -sec 


1. pv = -4.45 x 10 4 

ft -sec 


2. o 

d y 


^--8.5 x 10~ 2 
d y 


slug 

,3 

ft -sec 


3. T = 3,450°K 


3. T - 13,000°K 


4. *> Chemical equilibrium 

composition of ablation 
products at 3,450°K and 
0.1 atmosphere 


4. C. = Chemical equilibrium 
composition of air at 
13,000°K and 0.1 atmos 
phere 
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TABLE 


5.2 SUMMARY OF FLIGHT CONDITIONS AND 
SHOCK LAYER PROPERTIES 

p = 8.85 x 10 ^ slub/ft^ 

CO 

U - 5 x 10^ ft/sec 

OQ 

p - 8.44 x 10 ^ slug/ft 3 
w 

1 

v - 2.64 x 10 ft/sec 
w 

T = 3,450’K 
w 

= 1.7 x 10 ^ slug/ft^ 

3 

v. = —2.62 x 10 ft/sec 
o 

= 13,000°K 

p^ = 0.1 atm 

p- = 0.0536 
R = 9 ft 


Injection rate = 5% 
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HT n 4- 

(pVH - k ■” + Z h , J . + q ) 

dy ± i i,y 4 r,y 


dT n. 

(pvH - k ~ + r h . J. + q ) = Q 

dy ± i i»y H r,y y ^ 


(2.50e) 


The heating rate Q is the net amount of energy 
must be recalled that- the + and — superscripts 
and char sides of the interface, respectively. 

4* 

h, J,. „ + q, J 
i 


, 1 dT n 

(pvH - kx^+Eh^J. + q ) 
dy 4 i i,y ' H r,y' 


heating the body. It 
refer to the shock layer 
Q is computed by : 

(5.1) 


Preliminary calculations showed the first term in this equation to be 
negligible when compared to the other terms in the equation, for this 
reason it was not included in the computation of Q. The heating rate 
to the body was expressed as 

Q = Q e + Qd + % (5.2 


where 

% 

% 


- k — = Heat transfer by convection 

dy 


n 

- £ h.J. = Heat transfer by diffusion 

i i i»y 


(5.3) 

(5.4) 


(^ ■= q^ y * Heat transfer by radiation (5.5) 

FINITE-RATE CHEMISTRY RESULTS 

The SLAC program was used to compute non-equilibrium temperature, 
enthalpy, density, velocity and mass fractions profiles, and the body 
heating rate for the flight conditions previously discussed. Two sets 
of runs were performed, one using the chemical kinetics model described 
in Chapter 3, and the other using a modified kinetics model developed 
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by Balhoff (Ref. 5.3). The modified model assumes the same reactions 
used in the model described in Chapter 3, but the coefficients of the 
forward reaction rate constants were modified as shown in Table 5.3. 
Comparison of these coefficients to those in Table 3.8 shows that while 
the reactions used are the same, Balhoff 's chemistry model uses signi- 
ficantly smaller reaction rate constants in 9 of the 16 reactions con- 
sidered. Balhoff *s model is in effect a modification of the' original 
model used since it was found out that the frequency factors computed' 
using collision theory were in error. 

The results from both runs are presented here (Table 5.4) to give 
an indication of how sensitive the heating rate is to the value of the 
rate constants used. It must be pointed out that the solution using 
the rates in Table 5.3 were obtained in about 5 % of the computer time, 
it took to obtain the solution with the original chemistry model (18 
hours vs. 45 minutes in an IBM 360/65) . This was probably due to the 
fact that the rates used in the original chemistry model were much 
faster than those in the modified model, and this made convergence 
of the species solution more difficult. 

CHEMICAL EQUILIBRIUM RESULTS 

Results obtained from the SLAC program using an equilibrium chem- 
istry model for the flight conditions previously discussed provide 
profiles of temperature, enthalpy, density, velocity and mass fractions 
from the body surface (y/6 « 0) to the shock (y/<5 = 1) , and the body 
heating rate. It was maintained above that one of the reasons for 
choosing the flight conditions studied was the fact that both Engel 
(Ref. 5.1) and Esch (Ref. 5.2) had studied the same condition and. 


therefore, the validity of the equilibrium results obtained from SLAC 
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TABLE 5.3 MODIFIED COEFFICIENTS OF THE 
FORWARD REACTION RATE CONSTANTS 


.th Reaction 
a 

3 tj 


b fj 

•r~> 

4-i 

<U 

Comments 

i 

1.09 E 

10 

0.5 

71,000 

* 

2 

4.50 E 

11 

0.5 

35,000 


3 

1.10 E 

21 

-1.5 

224,900 


4 

3.60 E 

18 

-0.82 

103,000 


5 

2.80 E 

12 

0.5 

313,000 


6 

2.90 E 

12 

0.5 

333,000 


7 

2.20 E 

20 

-1.0 

131,800 


8 

1.09 E 

10 

0.5 

120,000 

* 

9 

1.22 E 

10 

0.5 

140,000 

* 

10 

1.23 E 

10 

0.5 

117,000 

* 

11 

8.50 E 

19 

-1.0 

257,900 


12 

1.28 E 

10 

0.5 

190,000 

* 

13 

1.20 E 

10 

0.5 

155,000 

* 

14 

1.21 E 

10 

0.5 

] 65, 000 

* 

15 

1.09 E 

10 

0.5 

115,000 

* 

16 

1.09 E 

10 

0.5 

145,000 

* 


*This rate constant is different from that used in the model 


described in Chapter 3 
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TABLE 5.4 NON-EQUILIBRIUM HEATING RATES AS PREDICTED BY 
TWO SETS OF RATE CONSTANTS 



* 

# 

# 

# 

Rate Constants 

Q c 


q r 

Q 

Table 5.3 

30 

1 

138 

' 169 

Table 3.8 

4 

1 

106 

111 


2 

# watts /cm 
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could be corroborated. 

Before proceeding to discuss and compare the results obtained to 
those obtained by Engel (Ref. 5.1) and Esch (Ref. 5.2), it is relevant 
to discuss the differences in the models used. Firstly, Engel used 
transport properties of air thoughout the flow field (including the 
region from the stagnation point to the body) while Esch and the pre- 
sent work used properties of air and ablation products throughout the 
flow field. Secondly, the species wall boundary conditions are given 
by (See Eq. 2.50b). 

(pv) c , „ “ J , „ - <PV) C ~ (1 - 1, ...,n) (5.6) 

w x,w w i 


where the term , which corresponds to mass diffusion inside the char 

has been neglected, and the are the mass fractions obtained from 

the ablator response analysis. Each assumed that mass diffusion could 

dC 

be described by using a binary diffusion coefficient (J = -pD 1 ) , 

dy 


and used boundary conditions of the third kind: 


(pv) C W + ( D = (pv) w C i" 

W 1*W 7 W W 1 

dy 


(5.7) 


(i = 1 » •••» 't>) 


Engel assumed there was no diffusion throughout the flow field 

(J. (y) = J =■ 0) , and used boundary conditions of the first kind: 
i i,w 


w - (i ■ 1, • • * > n) 


(5.8) 


In the present investigation mass diffusion was allowed throughout 
the shock layer but, in order to simplify the solution to the species 
equations, the boundary conditions used at the wall were of the first 


kind: 
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C i,w = C i , (i = 1» n) (5.9) 

Lastly, both Engel and Esch solved the energy equation in temperature 
form while in the present work an enthalpy form of the energy equation 
was used. As was discussed in Chapter 4, many attempts were made at 
solving the energy equation in temperature term, however, it was not 
possible to obtain a solution, and therefore, an enthalpy form of the 
equation was used. 

The chemical equilibrium heating rates obtained by Engel, Esch 
and the present investigation are compared in Table 5.5. It must be 
noticed that Engel and Esch did not include the heat transfer to the * 
body by diffusion. 

The significant difference in convective heating rates, with the 
present investigation yielding an essentially negligible heating rate 
by convection, results because the present investigation predicts 
smaller temperature gradients near the wall than those predicted by 
Engel and Esch. In other words, the present investigation predicts 
a higher convective heating blockage effect resulting from injection 
of ablation products into the flow field. 

COMPARISON OF PREDICTED NON-EQUILIBRIUM AND EQUILIBRIUM HEATING RATES 

From the results shown in Tables 5.4 and 5.5 it is evident that 
the predicted equilibrium heating rate is approximately three times 
as large as the non-equilibrium heating rate, and for both cases most 
of the body heating is the result of radiation. 

The lower radiative heating rate predicted by the non- equilibrium 
computation may be explained by examining the changes in chemical com- 
position which occur in the shock layer. When the chemical compositions 
predicted by the equilibrium and the non-equilibrium calculations are 



TABLE 5.5 EQUILIBRIUM HEATING RATES OBTAINED BY 
DIFFERENT INVESTIGATORS 


INVESTIGATOR 

c 

<4 

3 # 

! 



Q # 

Engel (Ref . 5.1) 

50 

i 

350 

400 

Each (Ref. 5.2) 

120 

i 

397 

517 

Present 
Inves tigation 

3 

l 

388 

392 


2 

i Did not consider # watts/cm 

heat transfer by diffusion 




1?L 


compared, it becomes evident that they are markedly different and that 
finite-rate chemistry effects are present throughout the flow-field 
(The complete set of dimensionless temperature, enthalpy, density, 
velocity and mass fraction profiles for the two non-equilibrium and 
the equilibrium runs are presented in Appendix C. Those profiles 
needed in the following discussion will be reproduced in this chapter.) 

An examination of the chemical composition of equilibrium ablation 
products shows that as they leave the char surface and are subjected to 
rapidly increasing temperatures, the decomposition process begun in the 
cftar continues as the "large" molecules, C^H, C 2 H, C^H, HCN, ^2^2’ an< ^ 
Hg are broken down (for example see Fig, 5.1) into simpler species such 
as Cg j C 2 , CO, CN, N 2 » C and H (see Fig. 5.2). As the ablation products 
flow towards the stagnation point, this process continues as C^, C 2 , 

CO, CN, and N 2 are converted to C, C , N, and 0 (see Figs. 5.2 and 5.3). 

Near the stagnation point, most of the carbon is ionized to C + 
and, due to diffusion of ablation products past the stagnation point, 
the concentration of C + persists for some distance past the stagnation 
point before decreasing to zero (see Figs. 5.3 and 5.4). 

In the region from the char surface to the stagnation point the 
non-equilibrium results predict that the ablation products will decom- 
pose at a much slower rate, when compared to the rate predicted by the 
equilibrium results. The "large" molecules (C 3 H, C 2 H, C^ H, HCN, 

and E^) and others (C^, CO, CN, and N 2 ) begin to break down into 

C, C \ C 2 » N, N + > 0 + , and H (see Figs. 5.1, - 5.3). But the ablation 
products reach the stagnation point before this process is completed 
and the results are much lower concentrations of C, C , N, 0, and H in 
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Figure 5.1 Mass Ffaction Profiles for C3H 
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this region (see Fig. 5.4). 

In the shock layer region of the flow-field, equilibrium results 

predict that as the air components are cooled down a process of rapid 

*4* *f t 

de-ionization occurs with most of the N and 0 being converted to N 
and 0 (see Figs. 5.5 and 5.6). On the other hand, non-equilibrium 
results predict that the air components will flow from the shock to the 
stagnation point without undergoing' any changes until very close to the 
stagnation point where their concentrations begin .to decrease and fall 
rapidly past the stagnation point. As a result of" these "frozen" con- 
centrations, the region between the shock and the stagnation point has 

much lower concentrations of N and 0 (and much higher concentrations 

+ + 

of N and 0 ) than those predicted by the equilibrium analysis (see 
Figs. 5.5 and 5.6). 

Therefore, the non-equilibrium analysis predicts much lower concen- 
trations of C, CN, C + , N^» N, O, and H and much higher concnetrations 
of C 2 , CO, C 3 H, C 2 H, C 4 H, HCN, C 2 H 2 , N + , 0 + , H 2 , and e“ than the equili- 
brium analysis. Since C, N, O, and H line and continuum mechanisms are 
the major contributors to radiative energy transport in the shock layer 
(Ref. 5.4), under non-equilibrium chemistry conditions the resulting 
radiative heat transfer to the body is significantly lower than the one 
predicted by chemical equilibrium analyses. 

DIFFICULTIES ASSOCIATED WITH THE SOLUTION 

This research demonstrates that the speed of obtaining a solution, 
if one can be obtained, depends on a large number of factors including: 
the formulation of the model, how realistic the values used for properties 
are, the numerical techniques used, and how such techniques are imple- 


mented. 
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Figure 5.6 Mass Fraction Profiles for N 
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The attempts at using the energy equation in terms of temperature 
failed because the temperature profile is very sensitive to the values 
of the other dependent variables and the energy equation in this form 
is apparently more strongly coupled to the species equations . The 
enthalpy formulation, on the other hand, permits uncoupling of the 
equations and makes it possible to obtain a converged solution. 

However, although a solution was determined using the energy 
equation in terms of enthalpy, obtaining such a solution was extremely 
difficult. Much of this difficulty arose because of the use of unreal- 
istically high reaction rates. The non- equilibrium solution using the 
original chemical kinetics model took about 18 hours of time in an IBM 
360/65 computer. The solution using the modified kinetics model took 
about 45 minutes in the same computer. This means that the unrealistic 
rates increased the difficulty in obtaining a solution. 

As was discussed in Chapter 4, a number of numerical techniques 

have been demonstrated to be inappropriate for solving chemical kinetics 

o 

problems. However, even those techniques which may be valid will not 
work unless they are implemented properly. For example, the scheme used 
to uncouple and iterate on the equations will, in many cases, make the 
difference between success and failure. Also, the weighting factors 
used to obtain new guesses from the old and new solutions (the X's in 
Figs. 4.1 - 4.4) determine if the solution will converge. Unfortunately, 
there is no straightforward procedure for determining how to implement 
a technique properly; a great deal of experimentation is required before 


success is attained 



130 


REFERENCES 

5.1 Engel, Carl D., Ablation and Radiation Coupled Viscous Hypersonic 

Shock Layers , PhD. Dissertation, Louisiana State University, 

Baton Rouge, Louisiana (1971) 

5.2 Esch, Donald D. , Stagnation Region Heating of a Phenolic -Nylon 

Ablator During Return from Planetary Missions , Ph.D. Dissertation 
Louisiana State* University , Baton Rouge, Louisiana (1971). 

5.3 Balhoff, John F., Research Associate, Chemical Engineering Depart- 

ment, Louisiana State University, Private Communication. 

5.4 Engel, op, cit., Vol. I, p. 126 



CHAPTER 6 


CONCLUSIONS AND RECOMMENDATIONS 


CONCLUSIONS 

From the results obtained in the present investigation the follow- 
ing conclusions can be derived: 

A finite-rate stagnation-line shock layer solution which 
contains a reasonable kinetics model to describe atmos- 
pheric entries protected by phenolic-nylon ablators was 
developed . 

The model was used to determine the non-equilibrium shock layer 
structure and body heating rates under flight conditions typical of re- 
turn from planetary missions. Although only one set of conditions was 
considered, it is believed that the method of solution is adequate for a 
range of conditions similar to the ones considered. 

2. Finite-rate chemistry effects are significant for the 
flight conditions considered. 

The results obtained show that as the ablation products enter the 
shock layer they react much slower than under equilibrium conditions. 

The air components entering through the shock are not de-ionized, as the 
equilibrium analysis predicts, but remain "frozen" throughout most of 
the shock region. The validity of these results are, of course, depen- 
dent upon the accuracy of the chemical kinetics model used. The degree 
of confidence in the results is high because: the kinetics model used is 
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the most complete that has been used in this type of application, the re- 
action rates used were the best rates available, and for both sets of re- 
action rates (the original and the modified) the same finite-rate chem- 
istry effects were present. 

3 . For the flight conditions studied the total heating rate 
to the body is significantly lower under non-equilibrium 
than under equilibrium chemistry conditons. 

The predicted non-equilibrium heating rate is approximately one 
third as large as the predicted equilibrium heating rate. This results 
from the fact that the non-equilibrium radiative heating rate is approx- 
imately one third as large as the equilibrium radiative heating, and in 
both instances, most of the total heating results from radiation. The 
significantly lower radiative heating rate is a direct result of finite 
rate chemistry effects which result in much lower concentrations of C, 

N, 0, and H, the species responsible for most of the line and continuum 
radiative transfer . 

RECOMMENDATIONS 

Considering the conclusions presented above, it is recommended that: 
1 . The mathematical model for the stagnation-iine analysis 
of an entry vehicle presented herein should be studied 
further to determine if its computational speed can be 
increased . 

The present version of SLAC should be developed from the research 

tool it is today until it becomes an effective engineering tool. The 

/ 

principal obstacle that needs to be overcome is the amount of computer 
time required to obtain a solution. The computational speed is a func- 
tion of: the model formulation, how realistic the properties used are. 
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the schemes for uncoupling and iterating on the equations, and the numer- 
ical techniques used. Much improvement in computational speed was ob- 
tained by considering different variations on all these factors. It is 
believed that the computational speed of the present solution could be 
increased by at least a factor of 2 by further consideration of uncoup- 
ling and iterating schemes. 

2. Studies of finite-rate chemistry effects be carried out 
under flight conditions different from those considered 
in the present work. 

The objectives of the proposed studies should be to determine: a) the 
range of flight conditions over which solutions may be obtained using the 
implemented model; and b) the range of conditions over which finite- 
rate chemistry effects are significant and how they affect the heating 
rates to the body. 

3 . Research be carried out on the effect of assuming more 
realistic shock and wall boundary conditions. 

This investigation should consider using non-equilibrium composi- 
tions of air at the shock as boundary conditions and using boundary con- 
ditions of the third kind at the wall. The use of non-equilibrium com- 
positions of air will result in increased concentrations of N and 0 and 
less N* and 0 + when compared to the equilibrium boundary conditions . 

This might result in increased radiative heating rates since N and 0 are 
optically more active than N + and 0 + . By perturbing the shock boundary 
conditions used in SLAC an estimate of the importance of this effect 
could be developed. In the present investigation the mass and energy 
boundary conditions used at the wall were of the first kind, however 
the mass and energy surface balances yield conditions of the third kind. 
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A study should be carried out to determine if using the more complete 
conditions has any significant effect on the heating rate. 

4 . Coupled solutions for both non-equilibrium ablation pro- 
ducts and shock layers should be determined. 

A complete solution to the quasi-steady entry problem requires that 
the ablator response be coupled to. the existing flight conditions through 
the shock layer. This can be accomplished by performing multiple calcula- 
tions of ablation and shock layer behaviour and matching conditions at the 
interface between the ablator surface and the flow field. At present, 
ablator-shock layer response under chemical equilibrium conditions has 
been studied, however, additional studies should be carried out coupling 
the finite-rate solutions determined from SLAC to those obtained from a 
non-equilibrium ablator-response model. 



APPENDIX A 


USER'S MANUAL FOR SLAC 


INTRODUCTION 

This appendix will serve as a user’s manual for the SLAC (Stagnation 
Line Analysis with Chemistry) program. The program implements a model 
designed to predict the stagnation line viscous, reactive, and radiative 
coupled shock layer structure, and the resulting heating rates produced 
by a blunt body during super orbital entry into planetary atmospheres. 

The problem was formulated In Chapter 1, and the equations describing the 
flow-field (the stagnation line boundary layer equations (See Table 2.7), 
and the wall and shock boundary conditions (See Table 2.8), were derived 
in Chapter 2. The thermodynamic, transport, radiative, and chemical kin- 
etic properties are described in Chapter 3. The program can also be used 
to compute flows in chemical equilibrium, and for this purpose it utilizes 
a free energy minimization routine developed by Del Valle and Pike (Ref. 
A.l). The numerical produres used to solve the model are described in 
Chapter 4. 

The SLAC program results from extensions performed on a program 
(VISRAD) primarily developed by Engel (Ref. A. 2), and in a program (SLAB) 
developed by Esch (Ref. A. 3) from VISRAD. These programs result from the 
efforts of many individuals over a considerable period of time. SLAC was 
designed to be used for thermal environment prediction studies. It 
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represents a significant tool for studying a variety of atmospheric en- 
try heating problems. The program, written in FORTRAN IV, is capable 
of performing the following types of analyses: 

’ Stagnation line solutions 

• Coupled diffusive, convective and radiative flux calculations 

• Emission, and line and continuum radiation calculations 

• Binary diffusion calculations 

• Finite-rate or equilibrium chemistry calculations 
PROGRAM PROCEDURES 

The SLAC computer program was developed following a philosophy of 
minimizing user’s effort and maximizing program flexibility and adapta- 
bility. Accordingly, the basic program logic as shown in Figure A.l is 
quite simple. However these basic subprograms are supported by 22 sub- 
routines and 7 function subprograms. Each of these modules performs 
computational functions which are of a basic nature (e.g. , computation 
of thermodynamic properties), and allows for modification, substitution, 
addition or deletion of existing modules with minimum effort. 

In order to minimize input requirements, three techniques were used. 
The first consists of internal initialization of values for temperature, 
density, viscosity and stand-off distance which are necessary to start, the 
solution procedure. If better guesses are available they may be input as 
discussed in the next section. The second technique involves internal 
specification in BLOCK DATA of problem-defining parameters such as the 
elemental composition at the surface and thermodynamic curve-fit constants 
which are changed quite infrequently. The third technique consists of 
internally selecting program options if an option variable is left blank 
on an input card. In this procedure the most commonly used options are 
performed when a blank is input. 




FIGURE A. 1 PROGRAM FLOWCHART 
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The start up of the SLAC program can be achieved in a number of 
ways. As stated previously, internal guesses are available to begin the 
iteration procedure. Two types of temperature profiles are available. 

One for no mass injection and the other for mass injection. These pro- 
files are usually quite satisfactory as initial guesses if an emission 
radiation coupled problem is to be run. However, if a line and continuum 
radiation coupled problem which includes mass injection, and finite-rate 
chemistry is to be run the internal guess may not be accurate enough. 
Consequently, it might be necessary to input a better temperature pro- 
file guess. 

INPUT GUIDE 

All inputs to the SLAC computer program are read from cards supplied 
by the userj no tapes are required. The basic inputs consist of parameters 
defining flight conditions (free-stream velocity and density), blunt body 
radius, wall temperature and mass injection rate. Additional input para- 
meters are required to determine which program options are desired, and 
to provide the necessary guesses of dependent variables. After each over- 
all iteration, the program outputs a deck of cards containing the values 
of the dependent variables and other pertinent parameters in such a manner 
that a given case run may be interrupted and continued at a later time by 
using the produced deck of punched cards to restart the run. Multiple 
case runs, and hence entire trajectories, can be processed by placing 
the input data for each new case behind the data for the previous one. 

Table A.l presents the card input formats for SLAC and Table A. 2 
provides a corresponding definition of variables. 

In single case runs Card 10 must be followed by a card with the 
characters END punched in columns 1, 2 and 3 to indicate the run has 
ended. In multiple case runs the END card should be placed after Card 
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TABLE A.l CARD INPUT FOR SLAC 


C&rd 

Variables 

Format 

1 

TITLE, IBM 

18A4, 18 

2 

KEEP, NETA, IRAD, ITYPE , MAXM, MAXE 
MAXD, LT, IPHI, FPRCT , TPRCT , IDEBUG 

915, 2E12.0, 2X, 
11 

3 

UNIF, RINF, R, TWK, HT0TAL, RVW 

6E12.0 

4 

DELTA, DTIL, RZB, RE, PDTIL 

5E12.0 

5 

T(I) 

6E12.0 

6A 

RH0 (I) 

6E12.0 

6B 

RM(I) 

6E12.0 

7 

DEPS 

E12-0 

8 

ETA(I) 

6E12-0 

9 

NDEBUG, TOL, IAB 

15, 5X E10.4, 15 


10 


CWALL(J) 


5E15 . 8 
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Card 

1 

2 


TABLE A. 2 VARIABLE DEFINITIONS FOR SLAC 


Variable 
TITLE 
I EM 

KEEP 


NETA 

IBAD 


ITYPE 


MAXM 


MAXE 


MAXD 


Description. 

Title for identification of the problem 

Number of overall iterations performed, 

IEM = 0 for case fun initiation, IEM>0 for 
restarts 

Indicator to determine if the temperature 
profile from the previous case is to be kept 
as a guess for the current case. 

KEEP == 0 Temperature not kept 

KEEP « 1 Temperature kept 

The number of points to be used in the shock 
layer profile. If NETA = 0, a set of 51 
equally spaced points will be used. If 
NETA>0 card 8 must be read. 

A variable used to specify the type of solu- 
tion. 

IRAD = 1 Convective solution only 

= 2 Uncoupled radiation 

= 3 Coupled radiation solution 

A variable used to specify the type of rad- 
iation model to be used. 

ITYPE = 0 Line and continuum radiation 
model 

= 1 Emission radiation model 

Maximum number of iterations allowed in the 
internal momentum loop. If MAXM =0, it is 
internally set = 15. 

Maximum number of iterations allowed in the 
energy-species continuity equation and in 
the overall momentum-energy-species loop. 

If MAXE * 0, it is internally set = 15. 

Maximum number of iterations allowed in the 
external momentum loop. If MAXD = 0, it is 
internally set - 15. 
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Card 


3 


Variable 


Description 


LT 


IPHI 


FPRCT 


TPRCT 


IDEBUG 


UNIF 

RINF 

R 

TWK 

HTOTAL 

RVW 

DELTA 


Indicator to determine if a temperature 
guess and if p and pv~ guesses are to be 
read in. 

LT = 0 Cards 5 and 6 are not read. 

= 1 Card 5 but not card 6 is read. 

= 2 Cards 5 and 6 are read. 

Indicator to determine if the shock curva- 
ture is to be input. 

IPHT « 0 de/de = 0 is internally set. 

= 1 Card 7 is required for input. 

Convergence tolerance for each point the f' 
profile. If FPRCT - 0.0 it is internally 
set = .005. 

Convergence tolerance for each point in the 
T profile. If TPRCT « 0.0, it is internally 
set ** .005. 

A switch to allow intermediate printout to 
be obtained at each iteration 

IDEBUG - 0 No print. 

- 1 Print is given 

The free-stream flight velocity (U ) i 
feet/sec. 

3 

The free-stream density (p^) in slugs/ft . 

Principal body redius in feet. 

Wall Temperature in degrees Kelvin. 

2 2 

Total free-stream enthalpy in ft /sec. . 

If HTOTAL = 0.0, it is set to U^/2. (Free- 
stream static enthalpy is assumed negligible) . 

Mass injection rate (pv)^/ (pU)^. 

An initial guess for the shock standoff dis- 
tance 5/R. If DELTA = 0.0, a guess is 
supplied by program. 
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Card 


5 


6A 


6B 


7 


8 


9 


Variable 

DTIL 

RZB 


RE 


PDTIL 


T(I), 1 = 1, 
NETA 

KH0(I),I=1, 

NETA 

RM(I), 1=1, 
NETA 


DEPS 


ETA(X) , 1=1, 
NETA 


NDEBUG 


Description 

A guess for the transformed standoff dis- 
tance 6/R. The program will also supply 
this value if DTIL 0.0 

The density ratio across the shock p=p co /p^ 

If RZB is input as 0.0, the code will deter- 
mine a value. 

The Reynolds number for the problem, Re g = 
U^RP^/P^. This quanity is determined by the 
program if RE is input as 0.0. 

Convergence tolerance placed on 6 for total 
solution convergence. If PDTIL = 0.0, It 
is internally set = .001. 

An initial guess for the dimensionless shock 
layer temperature profile (T/T^) . This card 

is required only if LT>0. 

An initial guess for the dimensionless shock 
layer density profile (p/p^). This card is 

required only if LT = 2. 

An initial guess for the dimensionless shock 
layer pv profile (pv/p^ v fi ) . This card is 

required only if LT = 2. 

The stagnation line shock curvature (de/dx). 
If IPHI = 0, then de/dx = -.0 is internally 
set. If IPHI = 1, Card 7 Is read and de/dx 
is supplied by the user. 

The grid shock layer points at which the 
solution profiles are to be computer. If 
NETA =0, An is set to 0.02 and ETA (I) is 
computed by the program. (ETA(1)=0 .0->- wall, 
ETA (NETA) = 1 , 0> shock). 

Debug option to output thermodynamic curve- 
fit equations and intermediate results from 

NDEBUG = 0 No output. 

= 1 Output given. 
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Card Variable 

TOL 


IAB 


10 CWALL(J), 

J=1,NSP 


Description 

Convergence criteria for CHEMEQ . 

If TOL is input as 0.0, the code will set 
it to 0.001. 

A variable used to specify the type of 
chemistry model to be used. 

IAB = 0 finite-rate chemistry 

IAB = 1 Equilibrium chemistry 

Wall mass fractions . 

NSP = 20 


+ 


J = l-0 2 

6~*N“ 

11+CO 

lh+C^H 

2 ^2 

7->E~ 

12-+ c 3 

17+C.H 

4 

B>0 

8-vC 

13+CN 

18+HCN 

4-vN 

9+H 

14-^C 2 H 

i ^ c 2 

5-*0 + 

!0->H 2 

15^C 2 H 2 

20*C + 
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10 of the last case to be run. 

Some caution should be exercised when preparing an input for this 
program. The program considers 5 elements, including electrons, and 
twenty species listed under CWALL (J) . The set of species was selected 
for an air atmosphere and an phenolic-nylon ablator. If another ab- 
lator is selected for study and this set of species is appropriate, no 
alteration of the program is required. All that is required is a card 
input of wall mass fractions of the ablator selected on Card 10. If 
extensive study of a different ablator using this program is anticipated, 
the user may find it convenient to change ‘the wall composition stated in 
BLOCK DATA under CWALL rather than reading in the data for each run. 

If required, a change to another set of species can be made with 
comparatively little difficulty. Thermodynamic and transport properties 
may be altered by changing the curve - fit constants in BLOCK DATA. The 
thermodynamic curve - fit equations were listed in Table 3.1 and the 
correspondence between the coefficients in the table and those in the 
program is 


For 

1000 < T <_ 6000 
AI « 

B1 

Cl 

DI 

El = 

FI 

GI 


A 3 

A 4 

A 5 

A 6 

A 7 


6000 <T°K 
All 
BII 
CII 
DII 
Eli 
FI I 
GII 


where the coefficients are dimensioned to include a value for each species 



145 


The species ordering is given in the SP array with corresponding order- 
ing in SMW (i.e. species molecular weight) array in BLOCK DATA. The 
transport properties curve-fit equations are listed in Thbles 3.3 (vis- 
cosity) and 3.4 -(thermal conductivity) and the correspondence between 
the coefficients in those tables and those in the program is: 

Viscosity: 


Table 3.3 
a 
b 
c 

Thermal Conductivity 
Table 3.4 
a 
b 


SLAC 

VI 

V2 

V3 

SLAC 

K1 

K2 


If new species and reactions are to be included in the finite-rate cal- 
culations, then subroutine FG2 must be modified accordingly. Finally, a 
study should be made to determine if radiatively important species are to 
be included . 


OUTPUT DESCRIPTION 

This section presents a description of the program output and def- 
initions of the output symbols. The program produces both printed output 
and punched card output. The printed output provides a human-readable 
record of input parameters, intermediate results and the final solution. 
The punched card output provides a machine- readable medium for restarting 
runs. 

Printed Output 

The first page of output is a print of the input data. This is 
provided for a check of the input and an identification of the problem. 
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All quantities on this page are defined in the Input Guide section. 

Most of the second page also contains problem specification data which 
is self explanatory. Following the guessed' nondimens ional stand-off 
distance (DELTA) and transformed stand-off distance (DELTA) and trans- 
formed stand-off distance (DTIL) , a listing of the dimensional stand- 
off distance computed at each iteration is given if the line-continumm 
radiation model is used. 

Species number densities for those species used in the radiation 
calculation during the final iteration are printed on the third page. 

The fourth page provides an output of radiative fluxes computed during 
the final iteration. The continumm contribution and line contribution to 
the spectral flux is printed for three ETA points (ETA ■ 0.0 = wall, ETA 
- stagnation point, ETA = 1.0 = shock) as a function of frequency inter- 
vals and frequency centers respectively. The columns of fluxes in watts/ 
o 

cm denoted by Q PLUS and Q MINUS designates fluxes toward the surface 
and away from the surface respectively. 

From the fifth until the thirtieth page, results of the overall 
iteration, either final or intermediate, are presented. The 'fifth page 
begins with one of the following messages: (1) "INTERMEDIATE PRINT AT 

ITERATION NO. a MCONV = b ECONV = c DCONV = d" where a is the overall 
iteration number, and b,- c, and d are either T (true) or F (false) de- 
pending upon if the momentum - global continuity equation, energy-species 
continuity equations, and the shock standoff distance have converged, 
respectively. If this message is printed at least one of b, c, or d 
must be F. (2) "SOLUTION CONVERGED IN e ITERATIONS", where e is the 
number of overall iterations it took to converge. Following either one 
of these two messages is a printout of the shock stand-off distance 
parameters DELTA, DTIL; the convective (QC) , radiative (QR) , diffusive 
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(QD) and total heating rate with the respective units printed. To the 

left of the heating rate data the density ratio .across the shock (RB) 

and the mass injection rate (RVW) are stated. Following the heating 

rate data is a print of some of the solution profiles as a function of 

* 

the shock layer coordinates ETA and (Y/D) . The solution profiles printed 
ares 

F* = velocity function 

RV = Pv/n U (nondimensional mass flux per unit area) 

K oo qo 

T/TD = T/T (nondimensional temperature) 

6 

E = IE (radiative flux divergence) 

V = V/U (nondimensional normal velocity) 

CO 

V(FT/SEC) = dimensional normal velocity 
G = nondimensional total enthalpy 
H(STATIC) = nondimensional static enthalpy 
These profiles appear in part of page 5 and in page 6. 

The shock layer thermodynamic and transport properties as a func- 
tion of ETA and Y/D are printed in the following pages. The profiles 
printed are: 

P(ATM) * pressure in atmospheres 
T(DEG. KEL.) = temperature in degrees Kelvin 
RHO (SLUGS/FT3) = density in slugs/cubic feet 
M (LBM/FT-SEC) « viscosity in lbm/(ft-sec) 

RM (LBF2-SEC3/FT6) = product of density and viscosity in 

lbf^ - sec^/ft^ 

K(BTU/FT— SEC-R) - thermal conductivity in Btu/ (ft-sec-°R) 

The next four pages present the profiles of the mass fractions of 
+ + - 

(> 2 , N£, 0, N, O , N , e , C, H, U 2 * CO, ^3> CN, C 2 H, and C 2 H 2 as a func- 
tion of ETA. Page 13 contains the profiles of mixture specific heat at 



148 


constant pressure (CP) , mass fractions for C^H, C^H, HCN and C , and the 
mixture molecular weight (AMW) as a function of ETA. 

The above description is for a standard output. However, if the 
intermediate print option is used (i.e. IDEBUG > 0) or if the thermodyn- 
amic fits and intermediate results from the chemical equilibrium calcu- 
lation are desired (i.e. NDEBUG = 1), additional information is printed. 

If message number (2) is printed, the run has ended and the program 
proceeds to the next case or stops if there are no additional cases to be 
run. If message number (1) is printed, the solution has not converged 
and additional iterations must be carried out. 

Punched Card Output 

After each overall iteration the program outputs a deck of cards 
containing all relevant data on flight conditions, body characteristics, 
and shock layer structure. These data are punched by a subroutine named 
PUNCH in such a manner that the cards may be used to restart a run at 
a later time. For example, if the program is allowed to run for 3 
hours, during that time the program might perform 4 overall iterations 
and it would output 4 decks of punched cards, one for each overall 
Iteration. If the solution has not converged after the 3 hours have 
run out, the fourth deck of punched cards may be used to restart the 
run at a later time. 
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non non 


c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

1 

c 

c 

c 


30 


**** S L A C #*** 

STAGNATION LINE HEATING ANALYSIS FOR A VISCOUS HYPERSONIC 
SHOC LAYER WITH FINITE-RATE OR EQUILIBRIUM CHEMISTRY AND 
RADIATIVE HEAT TRANSFER. 

G. PEREZ. C.D. ENGEL. AND D. D. ESCH JUNE, 


LOGICAL MCONV.ECONV.DCCNV 
COMMON /RFLUX/ E ( 60 > . I RAD. I TYPE 
COHMGN/NUM F3ER/NSP »NNS. NE ,NC 
COMMCN/EQ2/’AA< 20.5) .ICQDEC20) 
C0MM0N/EQ3/I AC 2 0. 5) 


♦ ♦ 


OR I V E R 


PROGRAM 


** 


CONT INUE 

** READ ANO PRINT ALL INPUT DATA ** 

CALL INPUT 

-FLOAT AA(I.J) MATRIX. ... 

00301 = 1 » NSP 
DO 30 J~ 1 * NE 
AAC I ,J )=IA< I ,J) 

** COMPUTE NECESSARY INITIAL QUANTITIES ** 

IF ( I EM. EQ. 0 ) CALL INIT 
IF ( I TYPE.EQ. 0)C ALL RADIN 



MAIN 

10 


MAIN 

20 


MAIN 

30 


MAIN 

AO 

1972 

MAIN 

50 


MA IN 

60 

TA 

MAIN 

70 

I AB 

MAIN 

80 


MA IN 

90 


MA IN 

100 


MAIN 

1 10 


MAIN 

120 


MAIN 

130 


MA IN 

1 AO 


MA IN 

150 


MAIN 

160 


MAIN 

170 


MA IN 

180 


MA IN 

190 


MAIN 

200 


MA IN 

210 


MAIN 

2 20 


MAIN 

230 


MA IN 

2 AO 


MA IN 

250 


MAIN 

260 


MA IN 

270 


MA IN 

280 


MA IN 

290 


MAIN 

300 


MA IN 

310 


MAIN 

320 


MA IN 

330 


MAIN 

3A0 


MAIN 

350 
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r>nr> on nnnnn ono nnono nnn non 


**** START OVERALL ITERATION *+** 

1000 CONTINUE 

IEM = IEM-fl 

** SOLVE MOMENTUM EQUATION ** 

CALL MOMTM 


** SOLVE ENERGY AND SPECIES EQUATIONS ** 
CALL COUPLE 

** INTERMEDIATE PRINTOUT ** 

CALL OUTPUT (21 
CALL PONCH 


*♦ CHECK SIMULTANEOUS MOMENTUM ANO ENERGY CONVERGENCE ** 

IF< IEM.GT.MAXD) GO TO 3000 
IF( »NOT* MCONV) GO TO 1000 
I F < • NO T • EC 0 N V 1 GO TO 1000 
IF < • NOT* DC ON V) GO TO 1000 
** PRINT ALL OUTPUT ** 

CALL OUTPUT < 1 ) 

** CONVERGED • GO 8ACK TO RUN ANOTHER CASE ** 


MAIN 

360 

MAIN 

370 

MAIN 

380 

MAIN 

300 

MAIN 

400 

MAIN 

410 

MAIN 

420 

MA IN 

430 

MAIN 

440 

MA IN 

450 

MAIN 

460 

MAIN 

470 

MAIN 

480 

MA IN 

490 

MAIN 

soo 

MA IN 

510 

MAIN 

520 

MA IN 

530 

MAIN 

540 

MAIN 

550 

MA IN 

560 

MA IN 

570 

MA IN 

580 

MAIN 

590 

MAIN 

600 

MAIN 

610 

MAIN 

620 

MAIN 

630 

MAIN 

640 

MAIN 

650 

MAIN 

660 

MA IN 

670 

MAIN 

680 

MAIN 

690 

MA IN 

700 



non 


<30 TO 1 


MAIN 710 

C MAIN 720 

3000 CONTINUE MAIN 730 

MAIN 740 

** MOMENTUM AND ENERGY DID NOT CONVERGE SIMULTANEOUSLY ** MAIN 750 

MAIN 760 

CALL OUTPUT (3» MAIN 770 

GO TO 1 MAIN 780 

END MAIN 790 
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SUBROUTINE INPUT 


C 

c 

c 

c 

c 


** ROUTINE TO READ AND PRINT ALL INPUT DATA ** 


COMMON /CONV/ FPRCT < TPRCT * DO AMP *TDA MP, PDT IL 

COMMON /CON VI /HOAMP 

COMMON /DEL/ DELTA ,DTI L *DT ILS 

COMMON /FRSTRM/ U INF, RlfJF, UINF2, R , RE, LXI , ITM, IEM, NETA 
COMMON /MAt M/KEEP*MAXE ,MAXM ,MAXD« I DEBUG , MCONV .ECONV, DCONV,LT, IAB 
COMMON /NON/RD 2 ,MUDZ »RMD 2 • AKNF * HNF • CPNF 

CO MM ON /PROP 1 /PI 160) ,RH0(60) , T (60 ) • AMW<60 > ,C <2 0 ,60 ) . CC< 5, 60 ) 
COMMON /PROP2 / MU<60 ) ,RM <60 ) • A K C 60 ) 

CO MMON/PROP3/CPS( 2 0,60) ,HS<20 ,60) .CP <60 > ,HM<60 ) 

COMMON /RPLUX/ E< 60) , IRAD, ITYPE 
COMMON /VEL/ F < 60 ) ,FC < 60 I • 2 <60 ) , V <60 ) 

COMMON /RH/ DUD.DPHI * TD ,RZ6 , PO , HD ,HT CT AL 
CQMMCN/WALL/RVX,PRW,TK0LD.FLUX<20 ) *CWALL{ 20 ) * EC# ALL < 5 ) 

COMMON /YL/ETAt60l ,YGN0<60 ) 

COMMON /TI T/TITLE( 18) 


INPU 10 
INPU 20 
INPU 30 
INPU AO 
INPU 50 
INPU 60 
INPU 70 
INPU 80 
INPU 90 
INPU 100 
INPU HO 
INPU 120 
INPU 130 
INPU 140 
INPU ISO 
INPU 160 
INPU 170 
INPU 180 
INPU 190 
INPU 200 
INPU 210 
INPU 220 


INPU 230 

C0MMCN/EQ1 /AI < 20) « Bl<20), CI<2C), DM20), EK20I. F I < 20 ) , GM20)*INPU 240 


X AI I( 20) »BI I ( 20) *C! I (20) *DI 1(20) »EI I <20 )*FI I( 20 ) » G I I < 20 ) 

COMMON /E Q2 /A A ( 2 0 * 5 ) ,ICODE<20) 

CO MM ON /EO 3/1 A< 20,5) 

COMMON /IO/SP(20) * EL ( 5 ) 

COMMON /WT/SMVM 20) «A*T<5) 

COMMON /NUM8ER/NSP ,NNS,NE,NC 
COMMCN/SP1 / SS , TOL , NDBUG 


INPU 250 
INPU 260 
INPU 270 
INPU 2B0 
INPU 290 
INPU 300 
INPU 310 


REAL MU ,MUDZ 

LOGICAL MCONV, ECONV, DCONV 

DATA END /*ENO •’/ 


INPU 320 
INPU 330 
INPU 340 
INPU 350 
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44 INPUT FORMATS ** 

100 FORMAT (18A4.I8) 

101 FORMAT f 9I5«2E12*C.2X,I1 > 

102 FORMAT C 6EI2.0 > 

107 FORM AT ! I 5 » SX,E1C*4,I5) 

106 FORMAT! 5E 1 5» 9 ) 

C 

C 44 OUTPUT FORMATS 44 

C 

200 FORMAT ( 1H1 . I8A4.I8 //// ) 

201 FORMAT < 12H0 INPUT DATA /// » 


FORMAT { 

9H0KEEP 

=: 

15 

/ 

9H 

NE TA 

= 

15 

/ 

9H 

maxm 

= 

15 

/ 

9H 

MAXE 

= 

15 

/ 

9H 

VA XD 


I 5 

/ 

9H 

FPRCT 


I PE 15, 6 

/ 

9H 

TPRCT 


E15.6 

/ 

9H 

i-T 

= 

I 5 

/ 

9H 

I DEBUG 

= 

15 

/ 

RH 

I PH I 

s 

15 ) 


202 FORMAT! IX/* *4 FINITE-RATE CHEMISTRY 

204 FORMAT ! 9H0UINF « IPE15.6 

1 / 9H RINF * E15„6 

2 / 9H R = E 15*6 

3 / 9H T» = E15.6 

4 / 9H HTOTAL = E15#6 

5 / 9H RVW = E15.6 

6 / 9H PD TIL = E15.6 //I 

205 FORMAT ! 9H0NOBUG = 15 

1 / 9H TOL = F5* 3 / / ) 

206^ FORMAT I 2 OH 01 NITIALT T PROFILE / < 1H 


INPU 360 
INPU 370 
INPU 380 
INPU 390 
INPU 400 
INPU 410 
INPU 420 
INPU 430 
INPU 440 
INPU 450 
INPU 460 
INPU 470 
INPU 480 
INPU 490 
INPU 500 
INPU 510 
INPU 520 
INPU 530 
INPU 540 
INPU 550 
INPU 560 
INPU 570 
INPU 580 

*** // > INPU 590 

INPU 600 
INPU 610 
INPU 620 
INPU 630 
INPU 640 
INPU 650 
INPU 660 
INPU 670 
INPU 680 
INPU 690 

, 1 2F 10*5 I ) INPU 700 
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207 FORMAT < 20H0INITIAL RHO PROFILE/ C IH • 12F10*5 » ) 

208 FORMAT < 20H0INITIAL RM PROFILE/ ( IH « I2F10.5 I ) 

209 FORMAT < 20H0ETA / < IH , 12F10*5 I ) 

2 1C FORMAT ( 32H * CONVECTIVE CALCULATION ONLY * ) 

211 FORMAT ( 36H * UNCOUPLED RADIATION CALCULATION * I 

212 FORM AT ( 3 AH * COUPLED RADIATION CALCULATION * > 

213 FORMAT ( 36H * CONTINUUM AND LINE CALCULATION * > 

214 FORM AT ( 1 9H * EMISSION MODEL * > 

215 FORM AT (IX/* * * EQUILIBRIUM CHEMISTRY **•//) 

216 FORMAT < 1 6H SPECIES INPUTS 


1 / 1 6H NO* ELEMENTS = 15 

2 /25X,5< I 5.2X.A4 ) ) 

218 FORMAT < 1 6M NO* SPECIES = I SI 
220 FORMAT < 25X* 5< I 5. 2X. A4) ) 

222 FORMAT I16H NO* SOLIDS = 15) 


CARD 1 

RF AD <5.100) TITLE. IEM 
IF < TITLE < 1 > • EO* END ) STOP 

IF ( IEM >6999. 5909.6999 
5999 CONTINUE 
C 

C **** START FROM SCRATCH **** 

C 

C 

C ** INPUT OPTION PARAMETERS ** 

C 

C ** IRAD = 1 NO RADIATION CALCULATED 

C IRAD = 2 UNCOUPLED SOLUTION 

C IRAD = 3 COUPLED SOLUTION ** 

C ** I T YPF = 0 SPECTRAL MODEL KITH LINES 

C I T YPE = 1 EMISSION MODEL 

C 

KETA = NETA 

C CARD 2 — 


INPU 710 
INPU 720 
INPU 730 
INPU 740 
INPU 750 
INPU 760 
INPU 770 
INPU 780 
INPU 790 
INPU 800 
INPU 810 
INPU 820 
INPU B3C 
INPU 840 
INPU 850 
INPU 060 
INPU 870 
INPU 880 
INPU 890 
INPU 900 
INPU 910 
INPU 920 
INPU 9 30 
INPU 940 
INPU 950 
INPU 960 
INPU 970 
INPU 980 
INPU 990 
INPUtOOO 
INPU1910 
INPU1020 
INPU 1030 
INPU1040 
INPU1050 
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READ (5,101 > KEEP, NETA, I RAD. I TYPE, MAXM.MAXE.MAXD.LT* I PH I, INPU10 60 

1 FPRCT.TPRCT.IDEBUG INPU1070 

META = NETA INPIJ1080 

IFCKETA *E Q, 0) KEEP * 0 INPU1090 

IF ( KEEP • GT, 0) NETA = KETA INPU1100 

C INPU1HC 

HDAMP = 0,6 INPU1120 

TO AMP = 0,06 INPU1I3Q 

DOAMP = 0* 6 INPU1140 

IFCMAXM *EOt 0) MAXM=I5 INPUIISO 

IF (MAXEaEQ* 0) MAXE=S INPUMOO 

IF ( M AXD«EO* 01 »AXD = 15 INPU1170 

I F ( F PR C T • E 0 • 0,0) FPRCT=»005 INPUI190 

IFITPRCT ,EQ, 0.01 TPRCT=0«005 TNPUI190 

IF t NFTA «EQ* C ) NETA = 51 1NPU1200 

IF ( IR AD,E Q, O ) I R A 0 =t INPU1 216 

C INPU1220 

C INPU1230 

C ** FREE— STREAM FLIGHT CONDITIONS ** INPU1240 

C CARO INPU1250 

READ (5,1021 U I NF . R I NF • R • T WK , HTOT AL ,RVW INPU1260 

UINF2=UINF**2 INPUI2T0 

IF(KEEP,GT* 0) TWOLD = TCI) INPU1280 

T(1)=TMK INPU129C 

C INPU1300 

IFCHTOTAL #EGt 0*0) HTOTAL=U I NF 2/2 • 0 INPU1310 

INPUI320 

** INITIAL SHOCK QUANTITY ESTIMATES ♦* INPUI330 

CARO 4 INPU1340 

RE AO ( 5 , 1 C 2 ) DELTA .DTIL ,RZB, RE, PDTIL tNPUt350 

IF{PDTIL*EQ*0*0) PDTIL = .001 INPU1360 

C INPU1370 

C ** INPUT INITIAL TEMPERATURE PROFILE ** INPU1390 

C CARO 5 INPU1390 

IFCLT *EQ, 0) GO TO 2800 INPUI400 
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READ < 5*102 » « T C I I ♦ I - l * NETA > 
280 0 CONTINUE 

** INPUT RHO AND «RH0M*U> PROFILES ** 

CARO 6 — 

IF(L7.LT*2> 60 TO 2900 
READ ( 5 » 102 I <RHOI I ) *1 = 1 *NETA) 

READ <5*1 021 (RM ( I ) , I = 1 . NE T A 1 
2900 CONTINUE 
C 

C ** SHOCK SHAPE (OEPS/DXI) ** 

C 

IF ( IPHI * NE • O ) GO TO 2550 
OEPS = 0*0 
GO TC 2370 
2550 CONTINUE 

C CARD 7 

READ (5*102) OEPS 
257 C CONTINUE 

DPHI = 1. -DEPS 
C 
C 

IF ( META *GT* 0 > GO TO 1C00 

IFCKEEP «GT * 01 GO TO 1500 
C 

C ** FIXED GRID SIZE CN FTA ** 

C 

DETA = 0*02 
ETA < 1 ) = 0*0 

DO 500 I = 2 , 51 

ETA ( I ) = ETA ( 1-1 > ♦ DETA 

500 CONTINUE 
C 

GO TO 1500 
C 


1NPU1410 

INPU1420 

INPU1430 

INPU1440 

INPU1450 

INPU1460 

INPU1470 

INPU1480 

INPU1490 

INPU1500 

INPU1510 

INPU1520 

INPU1530 

INPUI540 

INPU1550 

INPU1560 

INPU1570 

INPU1580 

INPU1590 

INPU1600 

INPU1610 

INPU1620 

INPU1630 

INPU1640 

INPU1650 

INPU1660 

INPU1670 

INPU1680 

INPU1690 

INPU1700 

INPU171C 

INPU1720 

INPUI730 

INPU1740 

INPU1750 


1000 CONTINUE 



non n non n non 


INPU1760 

** INPUT ETA POINTS ** INPU1770 

CARD 8 INPU178Q 

READ < 5.102 ) < ETA ( I > . I = 1 , NET A ) INPUI 790 

INPUI 800 

1500 CONTINUE INPU1810 

INPUI 820 

READ SPECIES PARAMETER CARDS****** INPU1830 

CARD <3 — - — INPUI 840 

READ 107* NO BUG * TOL • I AO INPU18S0 

INPUI 860 

IF< TOL*LE* 0* 0) TOL = *001 INPU1870 

NDBUG-OPTI ONAL OUTPUT VARIABLE INPUI 880 

NC = NUMBER OP GASEOUS COMPONENTS INPU18PC 

CARD 10 — — -- — — INPUI 900 

READ 108* (CIKALL< I)*I=1*NSP) INPU19I0 

GO TO 7999 INPU1920 

6999 CONTINUE INPU1930 

C INPU1940 

C **** RE-START **** INPU1950 

C INPUI96D 

RE AO ( 5 » 180 1 ) FPRCT«TPRCT*DDAMP«TDAVP,PDTIL*HOAMP INPU1970 

READ l 5 , 1801 1 DELTA «DTIL*DTILS INPU1980 

RFAO <5*18021 U INF, RINF, UINF2. R , RE. I TM, I EM » NETA INPUI990 

RE AD { 5 , 1803) KEEP, PA KE • M AXM *MA XD * IDE BUG . MCONV .ECQNV . OCONV.LT. IAB INPU2000 
READfS, I80nROZ,MUDZ,RMD2,AKNF,HNF,CPNF INPU20I0 

READ (5*18 04 ) NSP , NNS * NE *NC INPU2020 

READ (S » 18011 (Pit Jl.RMClJl ,T1J) *J*1 , NETA) INPU2030 

READ ( 5,1301 )(AMW<J) *J = 1 *NETA) INPU2040 

RF AO (S» 1801 ) < <C< I * J> • J=1 .NETA) , 1=1 *NSP) INPU2050 

R EAD (5*1801 M HM( J) . J = l ,NFTA) INPU2060 

READ (5*1801 ) <S< J> ,J=1 ,NETA> INPU2070 

RFAO (5, 1804) I R AD « I TYPE INPU2080 

READ (5*1801 ) DUD, D PH I , TD , RZB *PD . HD, HT OT AL INPU209C 

READ < 5*1801 )(F<J ) ,FC < J) ,Z<J> ,V(J> ,J=1 .NETA) INPU2100 



u u u 


180 1 
180 2 
130 3 
180 4 
715 
C 

7999 


300 


217 


RE AO I 5* 1801 )RVW«PRW»TWOLO 
READ15. 18011 (C WALL! I ) * I =1 « NSP) 

READ ( 5 * 1801 > < EC WALL ( K ) » K— 1 • NE ) 

READ < 5 * 1801 ) (ETAC J) ,YCND( J) *J=1 .NETA) 

READ! 5,71 5) NOBUG ,IAB,TOL 
READ (5,1801 )(<CC <K,J),J=1 .NET A 1 , Ks 1 ,NE 1 
PORMAT { 6E 1 3« 5 ) 

FORM ATI 5E 1 2a 5*313) 

FORMAT (515* 3L3 .21 5 ) 

FORMAT! 4X41 
FORMAT! 2I5»EI5*6) 

CONTINUE 

**** PRINT OATA **** 

WRITE ( 6*200 1 TITLE, IEM 
WRITE ( 6,201 I 

WRITE (6,202 IKEEP • NETA , MAX M, MA XE , MAXD ,FPRCT , T PR CT ,LT , I DEBUG 
* IPHI 

WR I TE ( 6 » 20 4 ) U INF,R I NF ,R ,T WK , HTOT AL , RVW ,PDT IL 


IF (IRAD.EO.l) WRITE (6,210) 

IF ( IP AO •£ 0« 2 ) WRITE (6,211) 

IF ( 1R AD, E Q, 3 ) WRITE (6,212) 

IF( IRAD,E0, 1 ) GO TO 300 
IF ( IT YPE* EQ, 0 ) WR I TE (6,213) 

IF ( IT YPE , E Q« 1 ) WRI TE (6,214) 

CONTINUE 

WRITE ( 6,206 ) ( T ( I ) , I - 1 

IFC IFM.EO.O) T( 1 ) = TWK 
WRITF( 6,20 7) (RHO( 11,1 = 1, NE TA) 

WRITE( 6,208) (RM (I), 1 = 1, NETA) 

WRITE! 6,20 9) (ETA( 1 > ,1=1 .NETA) 

WR I TE (6,217) DEPS 
FORM AT ( 9H0DEPS/DXI /(1H *12F10,5) ) 


INPU2110 
INPU2120 
INPU2130 
INPU2140 
INPU2150 
INPU2160 
INPU2170 
1NPU2180 
INPU2190 
INPU2200 
INPU2210 
INPU2220 
INPU2230 
INPU2240 
INPU2250 
INPU2260 
INPU2270 
INPU220O 
INPU2290 
INPU2300 
INPU2310 
INPU2320 
INPU2330 
INPU2340 
INPU2350 
INPU2360 
INPU2370 
INPU2380 

• NETA ) INPU2390 

I NPU2400 
INPU2410 
INPU2420 
INPU2430 
INPU2440 
INPU2450 



IF { I A8 • EQ« 0 ) MR I TE ( 6*203 > 

IF ( I A8.EQ* I) WRITE C6. 21 51 
WR I TEC 6*20 5) NDBUG .TCL 
WRITEt6.216) NE.t I.ELt I) *1=1 .NEI 
WR I TE ( 6 » 21 8) NSP 
JJ = 1 

KK = JJF4 

30 WR I TE t 6*22 0 ) < I • SP < I ) « I = J J .KK) 

IF(KK+5*GT*NSP » GO TO 35 
JJ = JJ+5 
KK = JJ 4 4 
GO TC 30 

35 KD = NSP -KK 

IF ( KC.LE* 0 ) GO TO 45 
KK = KK +KO 

JJ = JJ +5 

40 GO TO 30 
45 CONTINUE 

WR I TE ( 6 » 22 2 ) NNS 
PRINT 305 

305 FORMATt/* SPECIES*/* N AME* *9 X* • SMW* . 2X « 

1 • WALL MASS FRACTION*/) 

DO 10 1 = 1 .NSP 

10 PRINT30 2.5P( I ) *SMW( I ) .CWALL t I ) 

302 FORMATt 1X*A4 .1 F13*3.E12*4) 

IF t NOBUG. E Q* 0)GOT09999 

PR INT309 

309 FORMATt//.* SPECIE S* .35X *• THERMO-CONSTANTS A-G* . 29X .* RANGE • ) 
OOll 1=1. NSP 

PRINT3 0 3.SPC I) *AI I (I ) *BI I ( I 1 .Cl I ( I ).OI It I I.EI K I). FI It D.GIIt I ) 

11 PR I N T 30 4. A I tU.BI tI).CI tll.DI t I ) . E I (I).FI tI),GI tl) 

303 FORMATt/. 1X»A4»7E12*4, • LOW RANGE* > 

304 FORMATt 5X.7E12*4,* HIGH RANGE*) 

PRINT 307 

307 ' FORMATt //.25X.* AAtl.J) MATRIX*./) 


INPU2460 
INPU2470 
INPU2480 
INPU2490 
INPU2500 
INPU2510 
INPU2520 
INPU2530 
INPU2540 
INPU2550 
INPU2560 
INPU2570 
INPU2580 
INPU2590 
INPU2600 
INPU2610 
INPU2620 
INPU26 30 
INPU2640 
INPU2650 
INPU26 60 
INPU2670 
INPU2680 
INPU2690 
INPU2700 
1 NPU2710 
INPU2720 
INPU2730 
INPU2740 
INPU2750 
INPU2760 
INPU2770 
INPU2780 
INPU2790 
INPU2800 



DO J2J=1 ,NE 

12 PRINT 306 • (1 A( I # J 1 *1=1 *NSP } 
306 FORMAT { 5X* 20151 


C 

9999 CONTINUE 
RF TURN 
END 


INPU2810 

1NPU2820 

INPU2830 

INPU2840 

TNPU2850 

INPU2860 

1NPU2870 
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SUBROUTINE INIT 


C 

C 

c 

c 

c 


c 

c 


** ROUTINE TO COMPUTE NECESSARY INITIAL QUANTITIES 


COMMON /CQNV / FPRCT * TPRCT iOOAMP , TOA MP. PDT IL 
COMMON /DEL/ DFLTA ,DTIL,DTILS 
COMMON /EQ2/AA(20,5> « I CODE ( 20 ) 

C0MM0N/EQ3/I A< 20,5) 

COMMON /FRSTRM/ U INF, R INF « UINF2, R , RE, LXI , ITM. IEM, NETA 
CQMMON/GUE SS/TG1 < 60) ,TG2<60 > 

COMMON /MA I M/KEEP , MAXE ,MAXM , MAXO, I DEBUG, MCONV ,ECONV • DCONVtLT, I AB 
COMMON /NON/RDZ ,MUDZ ,R MO Z • A KNF , HNF , CFNF 

CO MM CN/ PROP 1 /P 1160) » RHG ( 60 > , T C 60 > , AMW( 60 ) t C (20 ,60 ) , EC( 5,60 ) 

COMMON /NUMBE R/NSP , NN S , NE , NC 

COMMON /PROP2 / MU (60 ) ,RM (60 ) , A K ( 60 ) 

COMMON /PRO P3/C PS ( 20 ,60 ) ,HS ( 20 , 60 ) ,CP C 60 ) ,HM< 60 ) 

COMMQN/VECTOR/ CA ( 60 ) «CB (60 ) ,CC (60 ) »B<60) 

COMMON /VEL/ F ( 60 ) ,FC ( 60 ) ,Z ( 60 ) . V ( 60 ) 

COMMON /RFLUX/ E( 60 ) , I RAD , I TYPE 

COMMGN /RH/ DUD ,DPHI , TO , RZB ,PD , HD , HTCT AL 

COMMON /SP2/BR , S(20> ,CSHOCK(5 ) 

COMMON /WALL/R V HI,PRW » T WOLD ,F LUX C 20 ) ,CWALL( 20 ) . EC W ALL ( 5 > 

COMMON /HT/SMXK 20) ,AWT(5) 

COMMON /YL /E TA ( 60 ) * YCN0(6C ) 

COMMON /DD/D( 60) 

COMMON/IT/AC 
REAL MU, MUD Z 

LOGICAL MCONV ,ECONV,DCCNV 

MCONV = .FALSE# 

ECONV = .FALSE# 

DC ON V = .FALSE. 


INIT 10 
INIT 20 
INIT 30 
INIT 40 
INIT 50 
INIT 60 
INIT 70 
INIT 60 
INIT 90 
INIT 100 
INIT 110 
INIT 120 
INIT 130 
INIT 140 
INIT 150 
INIT 160 
INIT 170 
INIT 180 
INIT 190 
INIT 200 
INIT 210 
INIT 220 
INIT 230 
INIT 240 
INIT 250 
INIT 260 
INIT 270 
INIT 280 
INIT 290 
INIT 300 
INIT 310 
INIT 320 
INIT 330 
INIT 340 
INIT 350 
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DO 900 1=1,60 
DO 900 J=1,NSP 
900 C<J,I1 = 1.0E-20 
C 
C 

C ** DETERMINE DENSITY RATIO • REYNOLDS NUMBER 

C FROM INPUTS OR RANKINE HUGCNIOT EQS • ** 

C 

C GUESSED VALUES 

TD = 12000* + * 5E-S*(HTOTAL -6.5E+8) 

RZB=*06 

C 

TCNETA) = 1*0 

HNF = 2. *7 78* 2 8*3 2* 1 72 /U INF2 

998 CONTINUE 

PD = < U -RZB1*RINF *UINF2/2116* 

HD = H TOTAL/ (778* 28*32*172) 

CPNF = 1*8*7 78* 28*32# 1 72 *TD *2* /UINF2 

AKNF * 1* 8*770* 28*TO *RZB/ tR*R I NF*U I NF*U INF2 I 

PKNETAl = PD 

CALL GASINETAl 

RZBI =R I NF/ { RDZ*RHO C NET A 1 1 

TEST =AB St ( R ZB-RZBl ) /RZB 1 

IF { TEST »LT# 0*0051 GO TO 999 

RZB=*5*( RZB+RZBll 

GO TO 998 

999 CONTINUE 

RE = RDZ*UINF*R*32. 174 / MUDZ 
C 
C 

C ** GUESS AT DELTA TO START ** 

C 

IF (DEL TA • EQ* 0*01 DELTA=0*78*RZB 

IF (DTIL • EQ* 0*01 DTI L=1 • 1 *DELT A 4-l*2*RVW 

WR ITE( 6, 2001 RZB, RE 


IN IT 360 
IN IT 370 
IN IT 380 
IN IT 390 
INIT 400 
INIT 410 
INIT 420 
INIT 430 
INIT 440 
INIT 450 
INIT 460 
INIT 470 
INIT 480 
INIT 490 
INIT 500 
INIT 510 
INIT 520 
INIT 530 
INIT 540 
INIT 550 
INIT 560 
INIT 570 
INIT 580 
INIT 590 
INIT 600 
INIT 610 
INIT 620 
INIT 630 
INIT 640 
INIT 650 
INIT 660 
INIT 670 
INIT 680 
INIT 690 
INIT 700 


bQT 



non n non on 


/2E15#6) 


200 FORMAT ( 1 4H0DEN5IT Y RATIO • 5X • 1 2 HRE Y NOLOS NO. 

MR I TE < 6 • 20 1 1 0ELTA.OTIL 

201 FORMAT ( 6H0DELTA*! 3 X*4MDTIL /2E15*6) 

997 CONTINUE 

DO 995 I =1 » NETA 
PI ( II = PD 
Eli) =0.0 
995 CONTINUE 

** RANK I N— HUGONI OT RELATIONS ** 

VD = -97.B 
TW = T<1> 

Till s T(1 > / TO 

** STAGNATICN POINT LIMIT OUANTITIES ** 

DUD =■ DPHI ♦ R ZB* <1*— DPMI) 

NQND IMENSIONALI ZING FACTORS 

AKNF s 1. 8*778* 26*TD *R ZB/ C R*R I NF*U I NF*U INF2 ) 

CPNF * I* 8*778# 28*32* 172*TD *2* /UINF2 

GUESSED F ANO Z PROFILES 

IF (KEEP* GT# 0) GO TO 9 
N = NETA-2 

FD = RZ8/C 2# *DUD*DTIL) 

FW = -RVW*FD 
F( 1 ) = FW 

00 2 K=2*NETA 

F<K> - <FD-FW)*ETA(K) ♦ FW 

2 CONTINUE 
DO 3 I - 1 #N 

Z( I ) = ETA <1+1 ) /OTIL 

3 CONTINUE 


INIT 710 
IN IT 720 
INIT 730 
INIT 740 
INIT 750 
INIT 760 
INIT 770 
INIT 780 
INIT 790 
INIT 800 
INIT 810 
INIT 820 
INIT 830 
INIT 840 
INIT 850 
INIT 860 
INIT 870 
INIT 880 
INIT 890 
INIT 900 
INIT 910 
INIT 920 
INIT 930 
INIT 940 
INIT 950 
INTT 960 
INIT 970 
INIT 980 
INIT 990 
INI T 1000 
INITIO 10 
INIT102O 
IN IT 1030 
INIT 1040 
1NIT1050 



u u 


C GUESSEO T PROFILES 

IF ( KEEP.GT *0 1G0T09 
IF ( L T. GT • 0 ) GO TO ll 
IFIRVW.GT. O.OIGOTQ7 
C NO BLOWING T PROFILE 
TWG1 = .1033 
DO 6K = 2.NETA 
TP » TGI ( K ) +(T(1I- TWG1) 

T<K> = TP — < T( 1 ) — TWG 1 ) * ET AIK) 

6 CONTINUE 
GO TO 11 

7 CONTINUE 
TWG2 = .3325 

C BLOWING T PROFILE 
DO 8K = 2 • NET A 
TP = TG2IK) + < T ( 1 ) - TWG2) 

TCK) = TP — < T( 1 ) — TWG21 * ETACK) 
e CONTINUE 
GO TO 11 
G CONTINUE 

00 10 K=2.NETA 

TP as TOO +T ( 1 ) — T WOLD 

T{K) = TP -< T( 1 )-TWOLD>*ETA(K) 

WRITE(6.10C) T(K).FTA(K> 

10 CONTINUE 

11 CONTINUE 

** INITIALIZE SHOCK LAYER PARAMETERS 
DO 810 I=NETA.60 
ET A ( I >=1*0 

Tin = uo 

E ( I > = 0.0 

phi) = pd 

MU< I )=l.O 
CPI I ) = CP(NETA) 


IN IT 1060 
I N IT 10 70 
IN IT 1080 
I N I T 1090 
I N I T 1 1 00 
INIT1110 
INIT1120 
INITU30 
INIT1 140 
I NIT 11 50 
INIT1160 
I N IT 1 170 
IN I T 1 1 80 
INITUGO 
I N I T 1200 
INIT1210 
I NIT 12 20 
IN IT 1230 
IN IT 1240 
IN IT1250 
INIT1260 
I N I T 1270 
I N l T 1280 
IN IT 1290 
IN I T 1300 
INIT1310 
INIT1320 

FOR VARIABLE STEP SIZE INIT1330 

I N IT 1340 
IN IT 1350 
IN IT 1360 
I N I T 1370 
IN IT 1380 
IN IT 1390 
I N IT 1400 
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AK 4 I ) = AKCNETA) 

V( I > = VD 

F( I> = FD 

FC < I >=FD 

DO 810 J=1*NSP 

CC J. n = C < J » NET A ) 

HS( J,I >=1*0 
810 CONTINUE 
1000 CONTINUE 

D0223 J=1 • 60 
D0223K=1 *NE 
223 ECCK.J) = l.E-20 
C 

DO 22 1 1 - 1 « N SP 
CU.ll = C WALL (I) 

221 CONTINUE 
CALCULATE AMW<N> 

WAMW = 0*0 
DO 25 J = 1 » NSP 

25. WAMW = WAMW +C WALL ( J ) / SP W( J ) 

WAMW = U/WAMW 
26 AM W( 1 ) = WAMW 
C 

c 

c CONVERT WALL AND SHOCK COMPOSITIONS TO 

C 

D033 1 J = 1 .NE 
EC ( J ♦ 1 1=0*0 
EC IJ»NETA) =0 • 0 
0033 1=1 *NSP 

FAC=AA( I . J >*AWT ( Jl/SMW ( I > 

FCIJ.1 »=EC(Jtl> FAC*CCI,1) 

33 EC(J.NETA)=EC< J.NETA) + FAC*C< I .NET A > 
331 EC WALL I J 1=EC ( J* 1 ) 


IN IT 1410 
IN IT 1420 
IN IT 1430 
IN IT 1440 
IN IT 1450 
IN IT 1460 
INIT1470 
IN IT 1480 
I N IT 1490 
INIT1500 
INIT1510 
IN I T 1520 
IN IT 1530 
IN IT 1540 
IN IT 1550 
INI T 1560 
INIT1570 
IN IT 1580 
IN IT 1590 
IN IT 1600 
INIT1610 
INIT1620 
IN IT 1630 
IN IT 1 640 
I N I T 1 6 50 

ELEMENTAL BASIS**** • INIT1660 

IN IT 1670 
INI T 1680 
IN IT 1690 
IN IT1700 
IN IT 1710 
INIT1720 
I N IT 1 730 
INIT1740 
INI T 1750 


o\ 
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D034N=NETA«60 
DO 34 J=1 *NE 

34 EC(J ,N)=EC(J*NETA) 

**** COMPUTE MUDZ AND RMDZ **** 
AC = 8, 128E-08*(TD**I,6591/(PI < 1 >*R*U1NF> 
DO 1 623 J=1 .NETA 
1623 D( J ) = AC*(T( J)**1.659) 

CALL ELRAT 

CALL CHEMEQ (l.NETAl 

MUDZ = 1,0 

CALL PROPRT ( NSP • NE T A , NETA > 

MUDZ - MU(NETA» 

RMDZ = RM< NE TA > 

CALL PROPRT ( NSP* 1 , NET A> 

DT1LS = ,01 

IF ( I DE RUG ,E Q, 0) RETURN 
WR I TE< 6, 4000 1 VD.DUD.PD 
WR I TE ( 6*4000 > DELTA, DTIL »RZB*RE 
4000 FORMAT! 1H0 *6E1 5,6) 

203 FORM AT ( 6E 12,01 
IOC FORMAT! IX, 9E 14,6) 

RETURN 

END 


IN IT 176-0 
INIT1770 
I N IT 1780 
INIT1790 
INIT1800 
IN IT 1810 
INIT1820 
INIT 1830 
INIT1840 
INIT1850 
INI T 1860 
IN t T 1 87(1 
INIT 1880 
I N IT 1 890 
INIT 1900 
IN IT1910 
IN IT 1920 
IN IT1930 
INIT 1940 
INITI950 
INIT 1960 
IN IT 1970 
INIT 1980 
INIT 1990 
INIT 2000 
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SUBROUTINE MONTH 

THIS SUBROUTINE SOLVES THE MOMENTUM EQUATION AS A 

SECOND ORDER EQUATION AND A FIRST OROER EQUATION 

COMMON /CONV/ FPRCT * TPRCT • DO AMP ,TDA MP, PDT IL 
COMMON /DEL/ DELTA ,DT I L ,DT ILS 

COMMON /FRSTRM/ U INF, RINF, UINF2, R • RE. LXI. ITM, I6M, NETA 
COMMON /MAI M/KEEP* MAKE «MAXM ,MA XD . I DE BUG » MCONV .ECONV, DCONV.LT, IAB 
COMMON /NON/RD2 *MUD Z ,R MDZ » AKNF * HNF * CFNF 

COMMON/PROP1/PI (60) .RHOI60I. T< 60 ) » AMW (60 ) , C (2C ,60 ) • EC( 5. 60 I 
COMMON/PROP2/ MU ( 60) ,RM (60 ) • AKC60 > 

COMMON /PROP 3/CP S( 20,60) *HS( 20,60) ,CP (60)*HM(60 ) 

COMMON /RFLUX/ Ef 60 ) , I RAD • I TYPE 
COMMON /RH/ DUD.DPHI ,TD ,RZB .PD.HD.HTCTAL 
COMMON/ VECTOR/ CA(60) • CB ( 60 > »CC <60 ) ,B(60) 

COMMON /VEL/ F(60) ,FC <60 > , * <60 ) ,V(60 ) 

COMMGN/WALL/R V IK, PRW , TMOLO ,FLUX < 20 ) , CM ALL ( 20 ) , ECW ALL ( 5 ) 

COMMON /YL/E T A < 60 ) * YONO( 60 ) 

LOGICAL MCONV, ECONV, DCCNV 
C 

C INITIALIZED QUANTITIES . 

C 

MCONV = .FALSE* 

DTILS = DTIL 
ITM = 1 

N = NETA —2 
L = NETA-1 

A A 3 = RZB* ( l *-RZB ) *OPHI**2/DUD 
DTILS2 = DTILS 

IF < IE M *GT • 3 ) DTIL=*5*(DTIL+DTILS2) 

C 

c 

c Z * • + AI *Z*+A2*Z=A3 

C COMPUTE A1,A2,A3 

14 CONTINUE 


MOMT 

10 

MOMT 

20 

MOMT 

30 

MOMT 

AO 

MOMT 

50 

MOMT 

60 

MOMT 

70 

MOMT 

SO 

MOMT 

90 

MQMT 

100 

MOMT 

1X0 

MOMT 

120 

MOMT 

130 

MOMT 

MO 

MOMT 

150 

MOMT 

160 

MOMT 

170 

MOMT 

180 

MOMT 

190 

MOMT 

200 

MOMT 

210 

MOMT 

220 

MOMT 

230 

MOMT 

240 

MOMT 

250 

MOMT 

260 

MOMT 

270 

MOMT 

280 

MOMT 

290 

MOMT 

300 

MOMT 

310 

MOMT 

320 

MOMT 

330 

MOMT 

340 

MOMT 

350 


CTv 

VO 
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BOUNDARY CONDITIONS 

RED = REYDTIL 

RED 2 = 2* *RED*DTIL*OUD 

DTIL2 = 0TIL*DTIL 

FD = RZB/<2.*DUD*DTIL> 

FW = ~RVW*FD 
F< 1) = FW 
B< L ) = 1*/0TIL 
. ITER * l 
15 CONTINUE 
II = 1 

DO 20 I=1*N 
DET=ETA( 1+ n-ETA< I > 

DFTN=E TA< I + 2 J-ETA ( 1+ U 
D 1 = DETN* (DETN+DET) 

D2 = DETNYOET 
D 3 - DET*I DETN+DETI 

RMP = DET*RM<I42) /Ol + (DETN— DET ) YRM <1+1 1/02 -DETN*RM< I )/D3 
A 1 = (RED2*F(I+1> -t-RMPI/RM { 1 + 1 ) 

A2 = ~REO?*DTIL*Z( I )/RM{ 1+1 > 

A3 » ~ 2* *RED * ( AA3/(RH0( 1 + 1 > *RM < I -#- 1 ) > 

1 +DTIL2 *DUD*Z<I >**2/<2#*RM( I+l) ) > 


C 


CA*Z (N— 1 )+CB*Z< N) +CC*ZtN+l ) =B 

COMPUTE CA.CB.CC 
CA < I I ) =( 2 • — A 1 YDE TN ) /03 

CB ( I >=A1*I DETN-DET>/D2-2*/D2+A2 
CCil >=< 2.+A1 YDET) /D 1 
B< I)=A3 
I I = I 
20 CONTINUE 


B< N)=B (N)-CC IN) /DTIL 


CALL TRIO <N> 


MOMT 360 
MOMT 370 
MOMT 380 
MOMT 390 
MOMT 400 
MOMT 410 
MOMT 420 
MOMT 430 
MOMT 440 
MOMT 450 
MOMT 46C 
MOMT 470 
MOMT 4 80 
MOMT 490 
MOMT 500 
MOMT 510 
MOMT 520 
MOMT 530 
MOMT 540 
MOMT 550 
MOMT 560 
■MOMT 570 
MOMT 580 
MOMT 590 
MOMT 600 
MOMT 610 
MOMT 620 
MOMT 630 
MOMT 640 
MOMT 650 
MOMT 660 
MOMT 670 
MOMT 680 
MOMT 690 
MOMT 700 
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INTEGRATE FIRST ORDER EQUATION 

FC< 1 >=FW 

SUM=FW+ ( B < 1 )+Ftt) *(ETAC2>— ETAC 1 > »*DTIL/2. 

FC( 2 1= SUM 
DO 30 K=3,NETA 

SUM= SUM+DT I L * C 8 < K— 1 )+B( K~2 ) ) *{ETA<K> -ETAlK-l >)/2. 
30 FC(K) = SUM 
C 

C — - — CHECK FOR CONVERGENCE 
C 

DO 4 0 K=2,NETA 

PRCT =ABS ( < FC { K >—F ( K ) )/F<K) ) 

IF ( PRCT*GT*FPRCT ) GO TO SO 
40 CONTINUE 
GO TO 90 
SO CONTINUE 

ITER - 1 TER+ 1 
DO 60 K = 1 » NE TA 
60 F(K)=FC<K> 

DO 6 5 1 = 1 * N 
6 5 Z( I ) =B (I ) 

IF { I TER*GE • MAX M ) GO TO 90 
GO TO 15 
90 CONTINUE 
C 

C COMPUTE NEW DTIL 

C 

DTILC = (FD-FW)*DTIL/(F(KETA»-FW> 

PRCT = ABS( (DTIL-DTILCI/DT IL> 

IF( I TM.GT.MAXM) GO TO 160 
ITM = ITM Fl 

IF{PRCT.LE.PDTIL» GO TO 15C 
DTIL = DTIL +DDAMP* ( DT ILC-DTI L I 
GO -TO 14 


MOMT 710 
MOMT 720 
MOMT 730 
MOMT 740 
MOMT 750 
MOMT 760 
MOMT 770 
MOMT 780 
MOMT 790 
MOMT 800 
MOMT 810 
MOMT 820 
MOMT 830 
MOMT 840 
MOMT 850 
MOMT 860 
MOMT 870 
MOMT 880 
MOMT 890 
MOMT 900 
MOMT 910 
MOMT 920 
MOMT 930 
MOMT 940 
MOMT 950 
MOMT 960 
MOMT 970 
MOMT 980 
MOMT 990 
MOMT 1000 
MOMT 1010 
MOMT 1020 
MOMT 1030 
MOMT 1040 
MOMT 10 SO 
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150 CONTINUE 

DTIL. = OTIL+ DDAMP* (OT ICC -OTIL) 

MCONV = .TRUE. 

CHECK MOMENTUM-ENERGY CONVERGENCE 
PRCT = ABS( <DTIL-DTILS>/DT!I_S> 

IF(PRCT,|_E.PDTl L) OCCNV = .TRUE* 

160 CONTINUE 
C 

DO 170 K=1,NETA 

170 V ( K ) = -FC<K)*DTIL*2./RHO<K> 

C DEBUG OUTPUT 

/ IF{ I DEBUG, EQ, 0) RETURN 

WRITE(6,102> ITER.1TM 
102 FORMAT! 1CX ,213/) 

WR I TE ( 6 » 100) OTIL.DTILC 
WRITE! 6,101 > 

10 1 FORMAT! 6X, *ETA* ,1 2 X, *F • ,12X, 'FC » ,12X,' RHO* , 12X, * RM* • 1 2X, * VS* • 1 2X • 
1 » V* ) 

DO 120 K=1 ,NETA 

VS=-FC (K)*DTIL*UINF*2./RH0(K) 

WR I TE ( 6*100) E TA( K ) ,F <K> ,FC < K) , RHO ( K > , RM< K > , VS ,V<K) 

100 FORMAT ( 1 X, 9E 14. 6) 

120 CONTINUE 

WR ITE( 6,103) 

10 3 FORMAT (6X, *E TA * ,13X,'Z*,13X,*B' ,12X,2HF* ) 

DO 121 1=1, N 
U=B! T >*DTIL 

WR ITE< 6,100) ETA( 1+1 ) ,Z(I > ,0( I ) ,U 

121 CONTINUE 
RETURN 
END 


MOMT 1060 
MOMT 1070 
MOMT 1080 
MOMT 1090 
MOMTllOO 
MOMT 1 110 
MOMT 11 20 
MOMT 1 130 
MOM Til 40 
MOMT 1150 
MOMT 1160 
MOMT 1 1 70 
MOMT 1 1 80 
MOMT II 90 
MOMT 1200 
MOMT 1210 
MOMT 1220 
MOMT 1230 
MOMT 1240 
MOMT 1 2 50 
MOMT 1 260 
MOMT 1270 
MOMT 1260 
MOMT 1 290 
MOM T 1 300 
MOMT 1310 
MOMT 1320 
MOMT 1 330 
MQMT13A0 
MOMT 1350 
MOMT 1360 
MOMT 1370 


172 



c 

c 

c 

c 

c 


c 

c 

c 


SUBROUTINE OUTPUT* N> 


*♦ ROUTINE TO PRINT SHOCK LAYER SOLUTION ** 


COMMON / ID/SP (201* EL< 5 ) 

COMMON /CONV/ FPRCT , TPRCT *DDAMP *TDAMP,PDT IL 
COMMON /DEL/ DELTA , OTI L • OT 1 LS 

COMMON /FRSTRM/ U INF, RINF* UINF2. R ♦ RE • LXI • ITM, I EM, NETA 
COMMON /MAI M/KEEP* MAKE ,M AXM ,MAXD« I DE BUG • MCONV ,ECONV, DCONV*LT « I AS 
LOGICAL MCONV *ECO NV *DCCN V 

COMMON /NON/RDZ*MUOZ.RMDZ*AKNF,HNF,CFNF 
COMMON /NUMBER/NSP ,NNS«NE *NC 

COMMON /PROP 1 /P 1(60), RHC I 60 I » T < 60 > , AMW < 60 ) » C <20 ,60 > , EC( 5, 60 ) 

CO MM0N/PR0P2 / MU( 60) *RM (60 ) • AK(6C) 

CO MMGN/PROP3/CP S (20*60) ,HS<20 .60 I .CP (60 > .HM< 60 > 

COMMON /RFLUX/ E ( 60 ) , I RAO , 1 TYPE 

COMMCN /PH/ DUDtDPHI , TO ,RZB »PO, HD.HTOT AL 

COMMON /SF LUX/ OR I (3) 

COMMON/VECTOR/ CA ( 60 > *CB (60 > .CC ( 60 ) ,B ( 60 > 

COMMON /VEL/ F <60 > ,FC < 60 > * Z(6C ) *V(60 > 

COMM CN/WALL/WVtt .PR W» T VOLO ,F LUX (20 > ,CWALL(20 > , ECW ALL ( 5) 

COMMON /YL/ETA<60> .YONDC60 > 

COMMON /OO/ 0(60) 

COMMCN/SP1 /SS , TOL , NOBUG 
DIMENSION BOUT ( 60 ) »DQR ( 30 ) 

REAL MU,MUDZ 

DATA HEAD l / • WALL • / , HE AD2/ • • / ,HE AD3/ • SHOC •/ 

*+ COMPUTE RADIATION FLUX IF UNCOUPLED PROBLEM ** 

IF ( I TYPE.NE. 0)GOT020 

IF ( I RAO *EO. 2 .AND. N •NE. 2) CALL TRANS ( 1 ) 

IF (IRAO.NE.l) CALL TRANS2 


OUTP 

10 

OUTP 

20 

OUTP 

30 

OUTP 

40 

OUTP 

50 

OUTP 

60 

OUTP 

70 

OUTP 

80 

OUTP 

90 

OUTP 

100 

OUTP 

110 

OUTP 

120 

OUTP 

130 

OUTP 

140 

OUTP 

150 

OUTP 

160 

OUTP 

170 

OUTP 

180 

OUTP 

190 

OUTP 

200 

OUTP 

210 

OUTP 

220 

OUTP 

230 

OUTP 

240 

OUTP 

250 

OUTP 

260 

OUTP 

270 

OUTP 

280 

OUTP 

290 

OUTP 

300 

OUTP 

310 

OUTP 

320 

OUTP 

330 

OUTP 

340 

OUTP 

350 


-•J 



non 


20 IF ( IRAD#EQ* 2 , AND* ITYPE#EQ* I I CALL EFLUX 
WRITE ( 6*203) 

202 FORMAT ( IH1 > 

C 

C ** COMPUTE Y COORDINATE ** 

C 

YOND (1) = 0*0 

SUM =0*0 

DO 40 K-2 • NE TA 

OETA = ET A < K ) — E T A I K— 1 ) 

SUM= SUM +DETA* ( 1 • /RHO C K I ♦ 1 #/RH0 < K«* l ) ) / 2a 
YOND ( K > s= DTIL* SUM 
40 CONTINUE 

DELTA = YOND(NETA) 

DO 50 K = 1 » NET A 
YONOCK)= YONDC K> /DELTA 
50 CONTINUE 
C 

C ** COMPUTE CONVECTIVE HEATING RATE ** 

C 

C WATTS/CM**2 

QC = ~AK( 1 »»RINF*UINF*UINF24 (T(2)-T(l))/ 
l <oSe*778«2e *YCND(2) *DELTA*RZB) 

C BTU/FT** 2-SEC 
GCP = QC*,88 

** COMPUTE RADIATIVE FLUX TO SURFACE ** 

QR = 0,0 

IF ( I RA D ,EQ. 1) GO TO 445 

DO 1100 K=2,NETA 

QR = QR + QUAD < YOND *E,K) 

1100 CONTINUE 
C WATTS/CM** 2 

QR =-QR *RINF*UINF2*UINF 4DELTA/ ( 685* *RZB) 


OUTP 

360 

OUTP 

370 

OUTP 

380 

OUTP 

390 

OUTP 

400 

OUTP 

410 

OUTP 

420 

OUTP 

4 3C 

OUTP 

440 

OUTP 

450 

OUTP 

460 

OUTP 

470 

OUTP 

480 

OUTP 

490 

OUTP 

500 

OUTP 

510 

OUTP 

520 

OUTP 

5 30 

OUTP 

540 

OUTP 

550 

OUTP 

560 

OUTP 

570 

OUTP 

5 80 

OUTP 

590 

OUTP 

600 

OUTP 

610 

OUTP 

620 

OUTP 

630 

OUTP 

6 40 

OUTP 

650 

OUTP 

660 

OUTP 

67C 

OUTP 

680 

OUTP 

690 

OUTP 

700 
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IF C I TYPE.E Q. 0 1 QR— —QRI < 1 ) 

445 CONTINUE 
C BTU/FT**2~SEC 

QRP=QR*0. 8 8 

** COMPUTE DIFFUSIVE FLOW TO SURFACE ** 

WATT S/CM** 2 
QD = 0* 

0017681=1, NSP 

1768 QD = QD + HSU ,l)*(C(t,2) - C(I.l)> 

QD = - RHO< 1 >*DC1 )*OD/(2**DEL.TA*YOND(2I ) 

QD = R INF*UINF*UINF2*QD/U8a*778*28) 

C BTU/FT** 2- SEC 

QDP = #88*00 
QTOT AL. =QC+ QR+QD 
QTOTP=QTOTAL** 88 
C 

C ** D I ME NS I ONAL 1 ZE RHO,MU.P*AND E ** 

C 

00 450 I = 1 , NETA 

RHOI I > =RHO< I )*RDZ 
MU < I >=MU< I > *MUDZ 
RM ( I) =RM( I > *RMD Z 
AKC I ) = AK < I ) /A KNF 

E< I) = E(I) * RINF * UINF2 * UINF / (20866*0 * R *RZB> 

CP < I ) = CP I I > ZCPNF 
450 CONTINUE 
C 

GO TO (1, 2*3,4) , N 

C 

1 WR I TE < 6*20 1 ) IEM 

201 FORM AT ( 23H SOLUTION CONVERGED IN ,I3,11H ITERATIONS ✓ /> 

GO TO 4 

C 

2 WRITE 16,202) I EM , MCONV ,ECGNV»DCONV 

202 'FORMAT ( 1 HO , 3 7H INTERMEDIATE PRINT AT ITERATION NO. ,I4,10X, 


OUTP 710 
OUTP 720 
OUTP 730 
OUTP 740 
OUTP 750 
OUTP 760 
OUTP 770 
OUTP 780 
OUTP 790 
OUTP 800 
OUTP 810 
OUTP 820 
OUTP 830 
OUTP 640 
OUTP 8 50 
OUTP 860 
OUTP 870 
OUTP 880 
OUTP 890 
OUTP 900 
OUTP 910 
QUTP 920 
OUTP 930 
OUTP 940 
OUTP 950 
OUTP 960 
OUTP 970 
OUTP 980 
OUTP 990 
OUTP 1000 
OUTP 1010 
OUTP 10 20 
OUTP 10 30 
OUTP 1040 
OUTP 1050 



u o u 


1 »MCONV=» ,L4,5X,»EC0NV=» ,L4 ,5X.*DC0NV=» ,L4 •// > 

GO TO 4 
C 

3 CONTINUE 
C 

4 CONTINUE 
C 

c 4* PRINT SHOCK QUANTITIES AND HEATING RATE ** 

C 

WRITE(6.204> DELTA, DTIL 

204 FORMAT ( 1H0 « 25X,9H DELTA = , 1 PE 14. 6 , 1 0 X . 7HDT IL = , 

1 E 1 5. 6 ) 

C 

WRITE (6,210) QC »QCP 

210 FORMAT ( 1H0, 25X.5H QC = E 1 5.6 , 2X , 1 3H( WATTS/CM** 2 ) * 

1 2X.1H=»E15.6,2X,17H<BTU/FT**2 - SEC) ) 

WR ITE< 6,212) RZB,GR,QRP 

212 FORMAT < 1H0,6H RB = ,F9. 4 • 1 0 X , 5H QR = E 1 5* 6 , 2X , 1 3H{ W ATT S/CM** 2 ) * 

1 2X ,1H = ,E 15.6 ,2X*1 7H(BTU/FT**2 - SEC) ) 

WRITE(6,213) RVW* QD »QD P 

213 FORMAT ( 1H0,6H RVW = »F9.4 , 1 Q X , 5H QD = E 1 5. 6 , 2X , 1 3H< W ATTS/CM** 2 ) • 

1 2X,1H = ,E 15.6, 2X*1 7H ( BTU/FT *42 - SEC) ) 

C 

WRITE<6.215) QTOTAL,QTOTP 

215 FORMAT! IHO, l 6HT0TAL HEATING = E 1 5. 6 ,2 X , 1 3H ( W ATTS/CM** 2 ) , 

1 2X,1H=,E15.6.2X.17H!BTU/FT**2 - SEC) ) 

** PRINT Y/D , F AND T PROFILES ** 

WRITE< 6.20 5) 

205 FORMAT! 1H0 ,7X, 4H ETA, 5X, 4HY/DZ, 8X, 2HF«, 8X, 3H RV , 8X , 

1 4HT/TD, 4 X ,13H E(W ATTS/CM3 ) ,4X ,2H V, 7X.12H V (FT/SEC) ♦ 

2 5X.2H G,6X,12H H (STATIC) • //) 

FP = 0.0 

NS=N SP 


OUTP1060 
OUTP1070 
OUTP1080 
OUTP 10 90 
OUTPHOO 
OUTP1 1 10 
OUTP 1120 
0UTP1130 
OUTP 1 I 40 
OUTP 11 50 
O UTP 1 1 60 
OUTP1 170 
OUTP 1180 
0 UTP 1 1 90 
OUTP 1200 
OUTP 1210 
OUTP 1220 
OUTP 1230 
OUTP 1240 
OUTP 1 250 
OUTP 1260 
OUTP 1270 
OUTP 1280 
OUTP 1290 
OUTP 1300 
OUTP 1310 
OUTP 1320 
OUTP 1330 
OUTP 1340 
OUTP 1350 
OUTP 1360 
OUTP 1370 
OUTP 1380 
OUTP 1 390 
OUTP 1 400 
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c 

DO ICO I=1,NETA 
C COMPUTE ENTHALPIES 
HSTAT =0*0 
OO 99 J=1,NS 

99 HSTAT = HSTAT + H S( J • I > *C ( J « I ) 
G = HSTAT + VC I >**2 

C 


0UTP1410 
OUTP 1420 
OUTP 1430 
OUTP1440 
OUTP1450 
OUTP 1460 
OUTP 1470 
OUTP 1480 


C 

C 

C 


HEAD— HEAD 2 

IFCI *EQ* l» HEAD=HEADI 
IF (I *EQ« NETA) HEAD=H£AD3 
YD2 = YOND < I ) 

IFt I.EQ.NETA) FP *1*0 
RV = -FCC I >*DTIL*2« 

VS = VC I » *UINF 

WR ITEC 6,20 8 > HEAD ,ETAC I ) « YDZ ,FP *RV « T ( I ) * E C I 
208 FORM AT C l H »A4. F6 *3 • 1 PI OE 1 2* 3 I 
IF C I .LT.NETA-1 > FP = ZCI»*DTIL 
100 CONTINUE 

** WRITE OUT SHOCK LAYER GAS PROPERTIES ** 


) ,VC I 1, VS. G, HSTAT 


C 

C 


WR ITEC 6,441 

44 FORMAT C 1H1 ♦ 4 8X « 2 8H— SHOCK LAYER GAS PROPERTI 

#RITE< 6,2061 

206 FORMAT C 1H0 . 3X. 3HETA ,8X ,4H Y/D.12X.2HP ,12X, 

1 . 1 2X « 3HRMU.11X.2H K> 

WR ITEC 6,207) 

207 FORMAT C 1H , 27X ,6H { ATM* ) .6 X • 1 3H ( DEG. KEL. ) 

1 28H C LBM/FT— SEC ) C LBF 2— SEC3/FT 6 > , 1 6H 

DO 101 1=1. NETA 


OUTP 1490 
OUTP 1500 
OUTP 151 0 
OUTP 1520 
OUTP 1530 
OUTP 1540 
OUTP 1550 
OUTP 1560 
OUTP 1570 
OUTP 1580 
OUTP 1590 
OUTP 1600 
OUTP 1610 
OUTP 16 20 
OUTP 1630 
OUTP 1640 
OUTP 1650 
OUTP 1660 

2H T . 1 1 X . 3 HR HO • 1 IX , 2HMU0UTP 1 670 

OUTP 1680 
OUTP 1690 
OUTP 1700 
OUTP 1710 
OUTP 1 720 
OUTP 1730 
OUTP 1740 
OUTP 1750 


ES — 


> 


, 12HC SLUGS/FT3I *2X, 
( 8TU/FT— SEC—R ) .//l 



TS = TO >*TD 

WRITE! 6*8) ET A( 1 ) , YGND (I)*PICI)» TS ,RHO< I ) • MU ( I ) * RM (I). AM!) 

C 

8 FORMAT < IH F7# 4 » 1 P8E 14*4) 

9 FORMAT ( 1H F7, 4 • 1 P7E 14. 4 > 

C 

101 CONTINUE 
C 

C ** WRITE SPECIES MASS FRACTIONS ** 

C 

WRITE! 6.230) 

230 FORMAT ( 1H I « 48X »26H— SPECIES MASS FRACTIONS- 1 
WRITE ( 6.231 ) 

231 FORMAT C 1H .14X.3H 02 . 1 1 X * 2HN2 * I 1 X • 3H O . 1 1 X . 3H N .11X.3H 0+, 

1 11X.3H N+.11X.3H E— »✓/) 

DO 102 1=1 »NETA 

WR ITE( 6.8) ETA( I).C(1 »I)*C(2.I )«C!3.I),C(4,I) »C(S. I)» 

1 CC6,I).C!7.I) 

102 CONTINUE 

WRITE! 6,230) 

WR ITE! 6,233) ! SP! I ) . I -8 , 1 5 ) 

233 FORMAT ( 2X • 4H E T A . 1 X . 8 ! 1 0 X . A4 ) // ) 

WR ITE! 6.8) ! ET A ( I ) » ! C ( J . I ) • J= 8 . 1 S ) . I = I , NET A ) 

WR ITE! 6,230) 

WRITF16.234) < SP! I ) • I = 16 ,20 > 

234 FORMAT ( 2X « 4H ETA.7X.3H CP . 5 ( 1 1 X . A4 ) . 8X . 4H A MW »/ / ) 

WR ITE ! 6 ,9 ) <ETA<I > ,GP! I) « !C ( J. I ) »J=16,20 ), AMW (I ) , 1= l.NET A) 

C NO NO IMENS I ONAL I ZE 
0010011=1. NETA 
RHO! I ) = RHOU ) /RDZ 
MU! I ) = MU! I )/MUDZ 
RM! I ) = RM ! I )/RMDZ 

E! I )=( !E( I )*R)/(RINF*UINF**3) ) 4(20866. 0*RZB 
CP! I )=CP! I )*CPNF 
100 1 AK( I )=AK( I )*AKNF 


OUTP1760 
OUTP 1770 
OUTP1780 
OUTP 1790 
OUTP 1800 
OUTP 1810 
OUTP 1820 
OUTP 1830 
OUTP 1840 
OUTP 1850 
OUTP I860 
OUTP 1870 
OUTP 1880 
OUTP1890 
OUTP 1900 
OUTP 1910 
OUTP 1920 
OUTP 1930 
OUTP 1940 
OUTP 1950 
OUTP 1960 
OUTP 1970 
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OUTP 1990 
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OUTP 20 1 0 
OUTP 20 20 
OUTP 20 30 
OUTP 20 40 
OUTP 20 50 
OUTP 20 60 
OUTP 20 70 
OUTP2080 
OUTP 20 90 
OUTP 21 00 
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FORMAT I6E 12. 51 

0UTP21 10 

1000 

CONTINUE 

OUTP2120 



OUTP2130 


RETURN 

OUTP2140 


END 

0 DTP 21 50 



SUBROUTINE PGNCH 

COMMON /CONY/ FPRCT .TPRCT * DDAMP .TDA MP. POT IL 

CO MM ON /CON VI /HD AMP 

COMMON /DEL/ DELTA, DTIL *DTILS 

COMMON /FRSTRM/ U INF, RINF, UINF2. R , RE, LXI , I TM, I EM, NETA 
COMMON /MAIM/KEEP, MAXE .MAXM.M AXD, I DEBUG. MCONV ,E CONV, DCONV.LT, I AB 
COMMON /NON/RDZ , MUDZ *R WDZ.AKNF ,HM r , CFNF 
CQMMGN/NUMBER/NSP ,NNS, NE ,NC 

CO MM ON /PROP 1 /PI (60) »RH0(60 ) , T! 60 ) . AMW < 60 ) , C <20 .60 >. EC! 5, 60 ) 
COMMON /PRO P2/ MU < 60 ) ,RM <60 1 • AK(60) 

CO MM0N/PR0P3 /CPS (20 ,60 » ,HS<20,60 ) ,CP (60 I ,HM<60 > 

COMMON /RFLUX/ E < 6P ) , T RAD, I TYPE 

COMMON /RM/ DUD , DPH I , TD • RZ8 , PD * HD , HT CT AL 

COMMON /VEL/ F < 60 I ,FC ( 60 ) • Z <60 I • V < 60 I 

COMMTN/WALL/R V W .PR W »T WOLD .FLUX < 20 ) « CW ALL < 20 > , EC WALL < 5 ) 

COMMON /YL/ETA(60) » Y0NDC60 ) 

COMMON /T I T /T I TLE ( 16) 

C0MM0N/SP1 /SS.TOL, NOBUG 
REAL MU, MUDZ 
C 

C **** PUNCH-OLT CARDS FOR RESTART **** 

C 

WR I TE< 7, 56 6) TITLE * IEM 
566 FORMAT! 1 8A4, I 8) 

WR I TE < 7, 1601 ) F‘PRCT , TPRCT, DDAMP, TDAMP.PDT 1L,HDAMP 
WRITE! 7, 18 01 IDE LTA, DTIL, DTI LS 

WR ITE(7»1802) U INF, RINF, UI NF2 • R , RE. ITM, IEM, NETA 

WRITE! 7, 180 3) KEEP, MAXE , MAXM , MA XD • I DEBUG, MCONV ,E CONV , DCONV ,LT , 1 AB 

PUNCH 1801, RDZ.MUDZ , RMDZ • AKNF , MNF , CPNF 

WRITE! 7, 1804) NSP . NNS , NE ,NC 

WRITE! 7, 18 01 )< PI ( J) ,RHC( J) ,T( J) * J=1 ,NET A ) 

WR TTE(7,18Q1 )(A MW ! J ) * J = 1 ,NETA) 

WR ITE! 7,1901 ) ( <C< I * J ) , J=l .NETA) ,1 = 1 ,NSP) 

WR ITE! 7,1801 ) ( HM ( J) , J=1 ,NETA) 

WRITE! 7, 1801 ) < E ( J ) ♦ J=1 .NETA) 


PQNC 

10 

PONC 

20 

PONC 

30 

PONC 

40 

PONC 

50 

PONC 

60 

PONC 

70 

PONC 

80 

PONC 

90 

PONC 

too 

PONC 

1 10 

PONC. 

1 20 

PONC 

1 30 

PONC 

1 40 

PONC 

1 50 

PONC 

160 

PONC 

170 

PONC 

180 

PONC 

190 

PONC 

200 

PONC 

210 

PONC 

220 

PONC 

230 

PONC 

240 

PONC 

2 50 

PONC 

260 

PONC 

270 

PONC 

2 80 

PONC 

290 

PONC 

300 

PONC 

310 

PONC 

320 

PONC 

330 

PONC 

340 

PONC 

350 


180 



WRITEt 7, 1 004 ) I RAO * I TYPE 

PUNCH 1801, DUO »DPHl *T0 »RZB*PD»HD*HTOT AL. 

WR ITEC 7,1801 )CF(J) ,FC< J> ,Z( J| ,V< J> ,J=1 .NET A) 

PUNCH 1801, R VW.PR W.TWOLD 

VDR ITE( 7,1 801 1 1C WALL ( I > ,1=1 ,NSP» 

WR I TE (7,1801 1 < EC WALL < K ) , K=1 ,NE1 
WRITE ( 7,1801 HE TACJ) ,YCND< Jl .Jal.NET A) 

WRITE! 7.71 51 NO BUG • I AB , TOL 

WR ITE( 7 ,1801 ) (<EC !K, J) , Jal .NET A) ,K=1 *NE) 

1801 FORMAT ( 6E 13* 5) 

1802 FORMA T ( SE 12.5,313) 

1803 FORMAT! 51 5,3l_3,2I5» 

1804 FORMAT (414) 

715 FORMAT(21 5.E15.6) 

RETURN 

END 


PONC 360 
PONC 370 
PONC 380 
PONC 390 
PONC 400 
PONC 410 
PONC 420 
PONC 430 
PONC 440 
PONC 450 
PONC 460 
PONC 470 
PONC 480 
PONC 490 
PONC 500 
PONC 510 


oo 




SUBROUTINE GAS (KOOE ) 


GAS 

10 

c 



GAS 

20 

c 

** THERMODYNAMIC AND TRANSPORT PROPERTIES OF AIR ** 


GAS 

30 

c 

** REFERENCE NASA TR R-50 ** 


GAS 

40 

c 



GAS 

50 

c 

THE FOLLOWING PROPERTIES ARE CALCULATED 


GAS 

6C 

c 

TEMPERATURE AT WHICH PROPERTIES ARE WANTED 

(T) IN DEG R 

GAS 

70 

c 

PRESSURE AT WHICH PROPERTIES ARE WANTED <P) 

IN LB/IN**2 

GAS 

80 

c 

RATIO OF SPECIFIC HEATS (GAMMA) IN DIMENSIONLESS 

GAS 

90 

c 

SPECIFIC HEAT AT CONSTANT PRESSURE (CP) IN 

BTU/LB-DEG R 

GAS 

100 

c 

ABSOLUTE VISCOSITY (V) IN LB/FT-SEC 


GAS 

110 

c 

PRANDTL NUMBER (PR) IN DIMENSIONLESS 


GAS 

120 

c 

THERMAL CONDUCTIVITY (XK) IN BTU/FT -S EC-DEG 

R 

GAS 

130 

c 

PRESSURE (P) IN ATMOSPHERES 


GAS 

140 

c 

DENSITY (DEN) IN L8/FT**3 


GAS 

150 

c 

ENTHALPY (H) IN 0TU/LB 


GAS 

160 

c 

ENTROPY (S> IN BTU/LB-DEG R 


GAS 

170 

c 

COMPRESSIBILITY (Z) IN DIMENSIONLESS 


GAS 

1 BO 

c 

SPEED OF SOUND (SOS) IN FT/SEC 


GAS 

190 

c 

SPECIFIC HEAT AT CONSTANT VOLUMN < CV ) IN BTU/LB-DEG R 

GAS 

200 

c 

ENTROPY (S) IN FT**2/S£C**2 


GAS 

210 

c 

VELOCITY (VEL) IN FT/SEC 


GAS 

220 

c 

PRESSURE (P) IN LBS/FT**2 


GAS 

230 

c 

MACH NUMBER ( M) IN DIMENSIONLESS 


GAS 

240 

c 



GAS 

250 

c 



GAS 

260 

c 

NOMENCLATURE l=QXYGEN MOLECULES. 2=NI TROGEN MOLECULES. 3 

= OXY GEN ATMOSGAS 

270 

c 

4cNITROGEN ATMOS. 5=OXYGEN IONS. 6=NI TROGEN 

IONS 

GAS 

280 

c 

7=ELECTRON S 


GAS 

290 

c 



GAS 

300 

c 



GAS 

310 


COMM CN /FRSTRM/ U INF. RINF. UINF2. R , RE. LXI, ITM, 

IEM. NETA 

GAS 

320 


COMMON /NON/ROZ.MUDZ.RMDZ.AKNF .HNF.CFNF 


GAS 

330 


CO MM ON /PROP 1 /P I (60) .RHOC60I »Tt (60) *AMW(60) .C (20.60). 

CC( 5,60 ) 

GAS 

340 


COMMCN/PROP2/ MU(60 ) .RM (60 ) . AK(60) 


GAS 

350 


182 
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CGMMON/PRQP3ZCP S< 20*601 *HS< 20 .601 *CPTI60 1 *HM( 60 1 GAS 

COMMON /RH/ DUD.DPHI .TO.RZfi.PD.HD.HTOTAL GAS 

COMMON /WAL L/R VW *PR W* T WOLD *FLUX I 20 1 *CWALL<20I . ECWALLI 51 GAS 

REAL MU.MUDZ GAS 

LOGICAL MCON V.GCON V • SCON V GAS 

DATA GASC /4972I.7/ GAS 

GAS 
GAS 

DO 2000 I=KODE.NETA GAS 

1 - Till) * TO GAS 

P = PI (I I GAS 

C GAS 

C THE FOLLOWING PART QF PROGRAM USES PRESSURE IN ATMOSPHERES GAS 

C AND TEMPERATURE IN DEG K GAS 

C GAS 

ITER =0 GAS 

C GAS 

C ** TEMPERATURE - ENTHALPY ITERATION ** GAS 

C GAS 

900 CONTINUE GAS 

I TER = I TER+ 1 GAS 

IF( T.LT. 100* ) 1=100. GAS 

A 1 = 1 13 90* / T GAS 

A 2— 16 9 90. / T GAS 

A 3=2270. /T GAS 

A4=3390*/T GAS 

A5=228./T GAS 

A6=326,/T GAS 

A7=22800./T GAS 

A8=48600./T GAS 

A9=27700./T GAS 

A I 0 = 4 1 500. /r GAS 

A1 1=38600 . /T GAS 

A l 2=5 8 20 0. /T GAS 

A I 3= 70. 6/T GAS 


360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
4 60 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
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A14=!ee* 9/T 
A 1 5=22 OOOo /T 
A 1 6=47 COO * /T 
A17=67900 « /J 
A18=2270*/< A. *7) 

A 1 9= TANHC A 1 8 I 
A20=3390o/f 4#*T| 

A21=TANHt A 20) 

TT=t*/T 
TSQ=T**2 
TSQRT=T**, 5 
A 2 2— II 2*2222/T 
A23=T759000. 

A2A=T/1 1 3200* 

A25=T/?5400* 

A A l =E XP ( — A 1 ) 

AA2=EXP(-A2> 

AA3=EXP( A3) 

AA4=£XP( AA ) 

AA5=£XP( — A 5 > 

AA6=EXP(-A6I 
. AA7=EXP(-A7> 

AA8=EXP(— A8) 

AA9=FXP(-A9) 

AA 1 0=EXP< -A1 0) 

AA 1 1 =E XP ( - A 1 1 ) 

AA12=EXP<-A12> 

AA13=EXP<-A13) 

A A 1 4=EXP( — A14 ) 

AA 1 5=EXP(-A1 5 ) 

AA16=EXP(-A1 6) 

AA 1 7 =E XP ( - A 1 7 ) 

C CALCULATING ENERGIES PER COMPONENT OF GAS MIXTURE ABOVE 

C REFERENCE ENERGIES* 

EI=2*5+< ( 2.*AA1*AI+AA2*A2 ) / C3. +2. * A A 1+ AA2 ) ) + ( A3/ < A A3-1* ) ) 


GAS 710 
GAS 720 
GAS 730 
GAS 740 
GAS 750 
GAS 760 
GAS 770 
GAS 780 
GAS 790 
GAS 800 
GAS 810 
GAS 82C 
GAS 830 
GAS 840 
GAS 850 
GAS 860 
GAS 870 
GAS 880 
GAS 890 
GAS 900 
GAS 910 
GAS 920 
GAS 930 
GAS 940 
GAS 950 
GAS 960 
GAS 970 
GAS 980 
GAS 990 
GAS 1000 
GAS 1010 
GAS 1020 
GAS 1030 
GAS 1040 
GAS 1050 
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ET=2.S+ < A 4/ t A A4— 1*1) GAS 

E3=l*5+( C 3**AA5*A5+AA6*A6+S**AA7*A7+AA84A8>/< 5* + 3**A A5+AA6+5#* A A7+GAS 
1AA8)» GAS 

E4=l *5+< < 10*4 AA9*A9+6# *AA10*A10 |/<4*+10**AA9+6**AA10 ) I GAS 

E5=l *5+< ( 10.4AA114A1 1+6* *A A 1 2* A 1 2 ) / ( 4 • ♦ 1 0 * * AA U +6* * AA 1 2 ) I GAS 

E6 = l *5 + ( ( 3# ♦ A A 1 3* A 13+5* * AAl 4* A1 4+5. *AA15*A15+ A A 16*A 1 6+5. *A A1 74 A 1 7 ) GAS 
l/< 1*+3**AA13+5**AA14+5.*AA15+AA16+5.*AA17) ) GAS 

E7=l*5 GAS 

C TOTAL ENERGY PER COMPONENT OF GAS MIXTURE GAS 

EN1=EI GAS 

EN2=ET GAS 

EN3=E3+29500*/T GAS 

EN4=E 4+5660 0* / 7 GAS 

EN5=E5 + 187500* /T GAS 

’ EN6=E6 + 225400. /T GAS 

EN7=E7 ' GAS 

C LOGS OF PARTITION FUNCTIONS GAS 

TL1 = AL0GC T)*3* 5 GAS 

TL2- ALQG ( T ) *2* 5 GAS 

EQ 1 = TL l+« I i + ALOG< C 3* +2 • * A A 1 +AA2 )/< 1 *-( l.O/A A3 > > > GAS 

EQ2=TLI-. 42-ALOGI U*-< 1 .0/AA4) ) ) GAS 

EQ 3 = TL 2+* 5+ALOG < ( 5* + 3* *A AS + AA6 + 5* *A A7+AA0 >) GAS 

E04 = TL2+* 3 + ALOGt (4. + 1 0* +AA9 + 6. *AA10 II GAS 

EQ 5= TL 2+* S+ALOGI ( 4* + I 0* * AA 11 +6* *AA1 2 > ) GAS 

EQ6=TL2+.3+AL0G( ( 1 • +3. *AA 1 3+S. *AA1 4+5* *AA1 5+ AA 16+5.4AA 17 I ) GAS 

E Q 7= TL 2— 14*24 GAS 

C EQUILIBRIUM CONSTANS FOR CHEMICAL REACTIONS GAS 

EK 1 =— 59000* /T+2* 4EQ3— EQI GAS 

EK2=-l 13200. /T+2.4EQ4-EQ2 GAS 

EK3=— 1 S8000* /T+EQ5+EG7— EQ3 GAS 

EK4=-l 68800* /T+EQ6+E07-EQ4 GAS 

CCC =—79* 9 GAS 

IFIEK1 *LE*CCC) EKl=-79*9 GAS 

IF C EK2.LE.CCC) EK2=-79*9 GAS 

IF ( EK 3*LE* CCC 1 EK3=-79.9 GAS 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
12 70 
12 80 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1360 
1390 
1400 



IF(EK4#LE#CCCl EK4=-79#9 GAS 

XKt=EXP(EKl) GAS 

XK2=EXPCEK2J GAS 

XK3=EXP(EK3» GAS 

XK4=EXP(EK4) GAS 

XK34=# 2*XK3+#8*XK4 GAS 

EE 1 — ( — 0 • 8+ C • 644-* 8* €l#+<f4#*P)/XKl) ) > **0 *5 )/ { 2** < 1#+4#*P/XK1 ) ) GAS 

EE2 = (-0.4t(# 16+3* 844 ( l#+<4»*P)/( XK2 ) ))**0»5l/(2«*U»+4« 4P/XK2) ) GAS 
EE 3= 1#/U U + P/XK34 ) **#5> GAS 

IF ( EE 1 *GT# # 1 9999) EE1 = #19999 GAS 

IF(EE2#GT##79999> EE2 = #79999 GAS 

IF(EE3#GT## 99999) EE 3 = #99999 GAS 

C COMPRESSIBILITY CZ) DIMENSIONLESS GAS 

Z=1* + EE 1+EE2+2#*EE3 GAS 

C COMPONENT MOL FRACTIONS IN AIR GAS 

Xt=< #2-EEl )/Z GAS 

X2 = < #8-EE2>/Z GAS 

X3={ 2#*EE1-#4*EE3)/Z GAS 

X4=< 2#*EE2-I #6*EE3)/Z GAS 

X5= #4*EE3/Z GAS 

X6= 1.6*EE3/Z GAS 

X 7= 2#*EE3/Z GAS 

IF ( X 1 #LF # 0 • ) Xl=l#E-20 GAS 

IF < X 2#LE #0# I X2=1#E— 20 GAS 

IF ( X 3# LE# 0# ) X3=l.£-20 GAS 

IF ( X4#LE « O # ) X4=l#E-20 GAS 

IF ( X5*LE#0* I X5=I#E-20 GAS 

IFCX€#LE#0#> X6=l#E-20 GAS 

IF ( X7#LE# 0# ) X7=l#E-20 GAS 

C ENERGY PER MOL OF INITIALLY UNO IS50C I ATEC AIR-DIMENSIONLESS GAS 

FR = Z*( X 14EN1 + X2*EN2+X3*EN3+X4*EN4+ XS4EN54X64EN6+X74EN7) GAS 

C ENTHALPY PER INITIAL MCL OF AIR-DIMENSIONLESS GAS 

HR =E R + Z GAS 

C ENTHALPY PER INITIAL MCL OF AIR CH) IN BTU/LB GAS 

H=HR*T*# 12348 GAS 


1410 
1420 
1430 
1440 
1450 
1460 
14 70 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 



if(kgde.l.t*neta> go to iooo 

HR ATO- • 5* { H— HD ) /H 
AHR = ABSC HRATO ) 

I F < A HR «LEo 0<»091Q> GO TO 999 
IF C ITER * G T* 1 > GO TO 203 
TP=T 

HP=HRATO 

T = T *<1, - HRATO ) 

IF (I TER cLT« 15) GO TO 900 
203 CONTINUE 

TS=T*{ l.O-HRATO) 

IF ( HRA TO*HP .LT.O.O) TS=«5*tT+TP) 

TP=T 
T = TS 

HP=HRA TO 

IF ( I TE R • LT • 15) GO TO 900 

WR I TE ( 6 • 200 ) T « H* HT 

200 FORM AT < 39H ITEM PER A TORE — E NTH ALP V DID NOT CONVERGE /3E15*6) 

C CAUL OUTPUT! 4) 

STOP 

999 CONTINUE 
TO ~ T 

C 

1000 CONTINUE 

C ENTROPY PER INITIAL MOL OF AIR-DIMENSIONLESS 
D 1 =EQ i +E 14-1* 

D2=EQ2+ET4- 1* 

D3=EQ3+E3-*- !• 

D4=£04+E4+ It 
05=EO5+E5+ 1. 

06=EQ6+E6+ 1* 

D7=EQ7+E7+1« 

C TOTAL ENTROPY 

SR =Z*( X1*D1+X2*D2+X3*D3*X4*D4+X5*D5+X6*D6+X7*D7 )-Z *< X 1 * ALOGC XI ) 
1X24ALOGI X2) + X3*ALQG< X3 ) + X4* ALOG ( X4 ) -frX5*AL0G(X5) +X67AL0G! X6)+X 7* 


GAS 1760 
GAS 1770 
GAS 1780 
GAS 1790 
GAS 1800 
GAS 1810 
GAS 1820 
GAS 1830 
GAS 1840 
GAS 1850 
GAS 1860 
GAS 1870 
GAS 1880 
GAS 1890 
GAS 1900 
GAS 1910 
GAS 1920 
GAS 1930 
GAS 1940 
GAS 1950 
GAS 1960 
GAS 1970 
GAS 1980 
GAS 1990 
GAS 2000 
GAS 2010 
GAS 2020 
GAS 20 30 
GAS 2040 
GAS 2050 
GAS 2060 
GAS 2070 
GAS 2080 
+ GAS 2090 
GAS 2100 
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2AL0G(X7n-Z*AL0G<P) GAS 

C ENTROPY PER INITIAL MOL OF AIR <S) IN BTU/LB-OEG R GAS 

S =SR*0*0686 GAS 

C SPECIFIC HEAT AT CONSTANT VOLUME-CV GAS 

FF 1 = 3 • + 2* 4 AA 1 + AA2 GAS 

CVl = 2.5+< < 2* *AA1*A1*A1+AA2*A2*A2 >/FFO -( C ( 2* * AA 1 * A1 + AA2*A2 )/FF 1 >**GAS 
1 2* )+C ( • 25*A3*A3 >/< ( < 2. *A 19 ) /« 1 • -A1 9 + A 19 » ) ** 2 ) ) GAS 

C V 2= £ * 5+ ( ( * 2 5* A 4* A 4 ) /< ( <2**A21 >/( 1. -A21 *A21 >> **2» I GAS 


C V3= 1 • 5+< < 3* *AA5*A5* AS+AA6* A6*A6+5* * AA7*A7*A7+AA8*A8*A8 >/< 5. +3.4AAGAS 


IS+AA€+5.*AA7+AA8» )-< <E3-1#5> **2. ) GAS 

CV4 = 1 • 5+ ( < 10«*AA9*A9*A9+6«*AA10*AI0*A10 )/ C4 *+10 * * AA9+6* *A A 1 0 > > GAS 

l-UE4-t*5)**2.) GAS 

CV5= l • 5 + ( ( 10**AA1 1 *A1 1 AA 1 1 +6* * A A 1 2 * A 1 2* A 1 2 ) / ( 4* +10**AA1 1 +6* * AA 12 ) >GAS 
1-((ES-U5)**2il GAS 

CV6=l*E+< ( 3* *A A13*A1 3*A13+5#*AA 14*A14*A1 4+5 • * AA 1 S*A 1 5* A 1 5 + A A 16 * A l 6GAS 
1*A16+5**AA17*AI 7**2) /( 1 • +3* *AA 1 3+5. * A Al 4+5* * A A1 5+ A A 1 6+5. *A A 1 7 > )-< (GAS 
2E 6— l • 5 >** 2» ) GAS 

CV7=U5 GAS 

C LOGARITHMIC DERIVATIVES GAS 

CK1=TT*( 5900 C* /T+2# *E3—E 1 ) GAS 

CK2=TT*< 11 3200* /T+2* *E4-ET> GAS 

CK3=TT*< 1 58000* /T+E5+E7-E3) GAS 

CK4=TT*( 1 68800* /T+F6+E7-E4 ) GAS 

CK34=. 2*CK3+* 8*CK4 GAS 

PK I = CK1+TT GAS 

PK2= CK2+TT GAS 

PK3* CK3+TT GAS 

PK 4= CK4+TT GAS 

PK34=0* 2*PK3+0* 8*PK4 GAS 

C PARTIAL DERIVATIVES REQUIRED FOR CP GAS 

OE 1P=(PK1*EEI*( 1.+EE1 )*(.2-EEl ) )✓ ( • 8* < *5-EE 1 ) ) GAS 

DE2P =( PK2 *E£ 2* ( 1 • 2+EF2 ) * ( • 8-EE 2 ) * / ( *4* < 4* 8-EE 2 ) 1 GAS 

DE3P=* 54 PK 34*EE3* (1* —EE 3**2 I GAS 

DZX1P=-DE1 P GAS 

DZ X2P“~DE2P GAS 


2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 



DZX3P=2.*DEIP - .4*DE3P GAS 

DZX4P=2.*DE2P-1.6*DE3P GAS 

DZX5P=.4*DE3P GAS 

DZX6P=l.6*0E3P GAS 

DZX7P=2,* DE3P GAS 

C EQUATION FOR SPECIFIC HEAT AT CONSTANT PRESSURE GAS 

CPF =Z* (XI* (C VI +1. I + X2* (CV2+I. I +X3*(CV3+ I . )+X4*< CV4 + 1. )+XS*< CV5+ 1 • GAS 
n*X6*(CV6+W ) + X7* (CV7+W ) > GAS 

CPR = CPF + T*(0ZX1P*(EN1+1* > *DZ X2P*( EN2+ 1 • > +DZX 3P * < EGAS 

3N3 + 1 • >+DZX4P*(EN4+l« ) + DZX5P* (EN5+ 1 • )+DZX6P4(EN6+l* » +DZX7P* ( EN7 + I • )GAS 
A ) GAS 

CPF = CPR GAS 

C SPECIFIC HEAT AT CONSTANT PRESSURE I CP > IN QTU/LB— DEG R GAS 

CP=CPR*,0686 GAS 

CPF = CPF* *0686 GAS 

C DENSITY (DEN) IN LB/'FT**3 GAS 

DEN=22,03703*P/(Z*T) GAS 

C *% TRAN SPOR T PROPERTIES** GAS 

C COLLISION CROSS SECTIONS GAS 

S2=3 1 • 4* 1 « E— l 6* (1*+(112#/T>) GAS 

SI 2 =( S2/3. 1415927)**. 5 GAS 

SI 4=< 1. 1 1 676-*(. 01 490* ALOG (1 • — ( 1 • - A23 > **. 5 ) ) -( • 23654 * ALOG GAS 

l < l*-< I *-A24)**« 5) )-(• 1 1582* AL OGC 1 ♦ - ( 1 •- A25 ) * *« 5 ) )) * 1 • OE-8 GAS 

S4=3* l 415927*( SI4 >**2 GAS 

SI24 = ( SI2+Sl4)/2* GAS 

S24=3. 1415927*( SI24>**2 GAS 

547=9# 40*1 • 06— 1 4/T SORT GAS 

FI=ALOG( 1. 042*i«OE~7*TSQ*(P*X7 )**<-#5>> GAS 

57=8 c 55644*1 « 0 E— 6* U. /TSQ) *FI GAS 

SIP4 = ( 1 • l 1 67 8- (#0149*ALOG< t*-< 1 • -2* * *23 1 **• 5 ) >-( • 23654*AL0G( 1 «, - { 1 oGAS 
l j -2«*A24)**#5) ) — (• 1 1 582* ALOG ( 1 • - ( 1 . -2# * A25 > ** ,5 1) I * I . 0 E-8 GAS 

SP4=3* 14S927*< SIP4)**2 GAS 

SIP24=( SI 2+SIP4) / 2 » GAS 

SP24=3. 145927*SIP24**2 GAS 

C COMPONENT MOL FRACTIONS FOR INDEPENDENT REACTIONS GAS 


2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
26 80 
2690 
2700 
2710 
2720 
27 30 
2740 
2750 
2760 
2770 
2780 
2790 
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Fl=l .+EE1 
F2=l . 2+5E2 
F3 = l .+EE3 
X 1 0D = ( « 2“EEl )/Fl 
X200=. BSF 1 
X30D=2. *EE 1/FI 
X2ND - ( * 3— EE2 ) /F 2 
X3ND=. 4/F2 
X4ND=2.*EE2/F2 
X4I=( l.-EE3)/F3 
X6I = EE 3/F3 

C MEAN FREE PATH RATIOS 
SS I - S24/S2 
SS2=S4/S2 
SS3=S7/S2 


SS4= S47/S2 

FP100=X lOD+X20D*»966G9l 8 +X3004SS1 *• 8164966 
FP200=X 100*1 ♦ 03279 6+X20D+X30D*S SI *.85280 29 
FP30D=X 10D* 1 » 1 5470 1 * SS 1 + X2 NO *SS 1 *1 • 1 28 1 S2+X 300* SS2 
FP2N0=X2ND+X4ND*SS1*. 8164966+ X3ND*S SI** 8528029 
FP3ND=X2N0*SS1 *!• 1 28 t 52+ X4 NO* SS2*. 966091 8+X3ND*SS2 
FP4ND = X2ND*SS1 *1. 1 5470 1 + X4ND* SS 2+X3ND*SS 2*1 .032796 
FP4I=X4I*SS2+X6I*SS2 
FP6! =X4I*SS2+X6I*SS3 

FP7I =X4I*SS4* 1. 41 4 1 86+ X6 1 * SS3* 1.4141 86 + X6 I *SS3 
C VISCOSTITES OF THE COMPONENTS FOR THE DIFFERENT REACTIONS 
VIQD = 1. 054093* X 100*1 ./FP1 00 
V20D=. 9860133* X200*l ./FP2O0 
V300 =• 7 45356*X3 00*1 ./FP300 
V2ND=* 986 0 1 33* X2ND*1 . /FP2ND 
V3ND =• 745356* X3ND* 1 « /FP3 NO 
V4ND =.69 72167* X4ND* 1 » /FP4ND 
V4I =.69721 67* X4 1*1. /FP4I 
V6I =.69721 67*X6I* 1./FP6I 
V7I =.4 367848*1. 0E~2*X6 I* 1. /FP7 I 


GAS 

2810 

GAS 

2820 

GAS 

2830 

GAS 

2840 

GAS 

2850 

GAS 

2860 

GAS 

2870 

GAS 

2880 

GAS 

2890 

GAS 

2900 

GAS 

2910 

GAS 

2920 

GAS 

29 30 

GAS 

2940 

GAS 

2950 

GAS 

29 60 

GAS 

2970 

GAS 

29 80 

GAS 

2990 

GAS 

3000 

GAS 

3010 

GAS 

30 20 

GAS 

30 30 

GAS 

3040 

GAS 

3050 

GAS 

30 60 

GAS 

30 70 

GAS 

30 80 

GAS 

3090 

GAS 

3100 

GAS 

31 10 

GAS 

3120 

GAS 

3130 

GAS 

3140 

GAS 

3150 



VROD=VlQD+V20D-fr V30D GAS 

VRNO=V2ND-f V3ND+V4N0 GAS 

VR I=V4I+V6I+V7I GAS 

F4=EE2/( . 2—EE1+EE2 ) GAS 

F5=2.*E£3/U 8-EE2+2.*EE3> GAS 

VR=VROD+ <F4*( VRND-VROD) ) ♦ < F5* I VRI-VRND ) ) GAS 

C TOTAL VISCOSITY (V) IN LB/FT— SEC GAS 

V=VR*. 9 841 838*1. OE-6*TSQRT/( 1.+A22) GAS 

C CONDUCTIVITY DUE TO MOLECULAR COLLISIONS FOR DIFFERENT REACTIONS GAS 

G1 ==• 21 05 26 3*CV 4736842 GAS 

G2=. 210526 3*CV2+# 4736842 GAS 

S3=.2105263*CV3+. 4736842 GAS 

G4=. 2105363*CV4+. 4736842 GAS 

G5=. 21 05363*CV6+. 4736842 GAS 

G6 = . 21 C5363*CV7+. 4736842 GAS 

XK NOD = (VI OD* .9*G 1 ) ♦< V20D*l . 0285 71 *G2 ) + < V30D*1 .8*G3) GAS 

XKNNDa t V2ND* 1*0 2857 1 *G2 1 ♦ ( V3ND* 1 • 8*63 )+( V4N0*2# 0571 43 *G4 ) GAS 

XKNI =( V4I * 2* 05 71 43*G4 > -M V6 1 *2. 0 571 43 *G5 )+(V7I*S241 6.0*G6 J GAS 

XKN=XKNOD+ (F 4* ( XKNND-XKNCD ) J + f F5* < XKNI-X KNND ) 1 GAS 

C CONDUCTIVITY DUE TO CHECMICAL REACTIONS FOR THE DIFFERENT REACTIONS GAS 
XKROD— C * 1 78637* < T*PK1 ) **2 ) / C ( SP24 / { 1*732051 *S2> >*< C ( X 30D+2 e* X 1 00 ) GAS 
1 *♦ 2 ) /( X 300* X tOD )+( 4# *X20D/ X30D ) I + ( X2CD/ { 1*4 14214*X10D ) ) ) ' GAS 

XKRND = ( • 1 78637* ( T*PK? ) **2) /< CSP24/C I .732051 *S2» >*<<<< X4ND+2.*X2ND >GAS 
l**2»/( X4ND*X2ND >)+<X3ND/X2N0) > ♦ ( SP4*2. * X3N0/ (S 2+X4ND ) >) GAS 

XKR 1 — { .1 78 6 37* ( T*PK34 1 **2 ) ✓ ( (<.5*SP4v'S2 )+(. 4 3478 26* 1 .0E-2*S47/S2 > I GAS 
1*C ( X4I+X6I )**2 ) /( X4I*X6I I ) GAS' 

XKOD=XKNOD+XKROD GAS 

XK ND =X KNND + XKR NO GAS 

XKI = XKNI + XKRl GAS 

XKR = XK OD+ (F4*( XKND-XKOD) ) -MF5* ( XKI-XKNO) ) GAS 

C TOTAL THERMAL CONDUCTIVITY (XK> IN BTU/FT-SEC-DEG R GAS 

XK=XKR*(t, 3206 522*1 • 0E-6*TS0RT > ✓( l.+A22> I GAS 

C PRANDTL NUMBER (PR) DIMENSIONLESS GAS 

PRN = ,2105263 * CPR * VR ✓ XKR GAS 

IF(I«EO. 1) PRW = PRN GAS 
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3260 
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3280 
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3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 



C FORM REQUIRED 8Y CALL STATEMENT GAS 

C GAS 

C ** RHO UNITS SLUGS/FT**3 GAS 

C ** MU UNITS LB M/FT— SEC GAS 

C ** RM UNITS LBF**2 SEC**3/FT**6 GAS 

C GAS 

MU < I ) = V GAS 

RHO< I > =DEN/32. 1 74 ’ GAS 

RM( I )=RHO( I ) *MU( I 1/32*174 GAS 

AK{ I 1 = XK GAS 

CP T ( I I = CPF GAS 

C *** CALCULATE THE MEAN MOLECULAR WT. *** GAS 

REAL = 25050. MS *Z / SR -GAS 

AM W ( I ) - GA SC / REAL G,AS 

C MASS FRACTIONS ' GAS 

C(1*I> = XI *32. 00/AMM I ) GAS 

C ( 2 » I ) = X 2 *2 8. 00/ AM WC I 1 GAS 

C(3,U = X 3 *1 6. OO/AMWI I I GAS 

C(4,I> = X 4 *1 4.00/AMtt< I > GAS 

C(6i I) = X6 *1 4.00/AMKl I 1 GAS 

C ( 5 « I ) = X 5 *1 6» OO/AMM I ) GAS 

C { 7 » I ) = X 7 /( 1820* *AMW< I) ) GAS 

C SPECIES ENTHALPY PER INITIAL MCLE OF AIR IN BTU/LB OF I GAS 

HSU.H = (Z*X1*EM/C(UI) +Z)*T*. 12348 GAS 

HSC2.I > = <Z*X2*EN2/C<2.1 1 +Z1*T*.12348 GAS 

HS ( 3« I ) = <Z*X3*EN3/C<3.1) +Z) *T*. 1 2348 GAS 

HS ( 4 » I ) = (Z*X4*EN4/C(4.I ) +Z)*T*. 12348 GAS 

HS ( 5 • I ) = <Z*X5*EN5/C«S,I 1 +Z)*T*. 12348 GAS 

HS (6*1) = C Z*Xe*EN6/C(6.I» +ZI*T*.l2348 GAS 

HS(7.I) * ( Z*X7*EN7/C C7 ♦ I 1 +Z1*T*,12348 GAS 

2000 CONTINUE GAS 

MUDZ = MU( NET A ) GAS 

RDZ= RH0INETA1 ’ GAS 

RMDZ= RMINETA) GAS 

C GAS 


3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 



U U <J 


C GAS 

DO 4C I=KOOE*NETA GAS 

GAS 

** NO NO I MEN SI ONALI ZE RHO AND MU ** GAS 

GAS 

RHO< I ) = RHO(I)/RDZ GAS 

MU { I ) = MU(I)/MUDZ GAS 

RM(I) =RM(U/RMDZ GAS 

AKU) = AK { I ) * AKNF GAS 

CPT( I > = CPT<!)*CPNF GAS 

C NOND 1MENSIONAL SPECIES ENTHALPY GAS 

HS { 1 * I ) = HS<1*!1*HNF GAS 

HS ( 2 • 1 > = HS(2«I)*HNF GAS 

HSC3.I) = HS<3,I)*HNF GAS 

HS ( 4 » I ) = HS<4.I)*HNF GAS 

HSI5.I) = HS ( 5 ♦ I ) *HNF GAS 

HS ( 6 t I ) = HS ( 6 • I ) *HNF GAS 

HS<7,I> = HS(7*I)4HNF GAS 

C GAS 

C GAS 

40 CONTINUE GAS 

100 FORMAT! 1X»9E14»6) GAS 

RETURN GAS 

END GAS 


3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
40 30 
4040 
4050 
4060 
4070 
40 80 
40 90 




SUBROUTINE FG2 ( V ,RHOA . TN, K) 





FG2 

io 

c 


SPECIES ISO 





FG2 

20 

c 

CO 

C C2 

C3 C+ 


C2H 

CN 

FG2 

30 

c 

1 

2 3 

4 5 


6 

7 

FG2 

40 

c 

HCN 

H 2 H 

N2 N 


N + 

O 

FG2 

50 

c 

8 

9 10 

11 12 


1 3 

14 

FG2 

60 

c 

0 + 

E- C2H2 

C3H C4H 




FG2 

70 

c 

15 

16 17 

18 19 




FG2 

80 


COMMON /FOG /A I I ,B ,C 

. T 

• 



FG2 

90 


DIMENSION Y( 19) »T1 (51 





FG 2 

100 


DIMENSION RH0(2> ,QK<16,2) ,PL<16 .10) • RAT ES < 3 » 

16) 

• EQM 16) 


FG2 

1 10 


DATA R/82,05/ 





FG2 

120 


DATA RATES/ 






FG2 

130 


1 .43525975 

02, ,50 OOOOOE 

00, . 3572 848 E 

05. 

•2683251E 

02 , 

FG2 

140 


2 • 50 OOOOOE 

00. . 1 761 263E 

05, . 48 35429E 

02 . 

-• 1500000E 

0 1 , 

FG2 

150 


3 . 11 31738E 

06, . 4272747E 

02, -.8200000E 

00 , 

• 519321 IE 

05, 

FG2 

160 


4 . 2866C64E 

02. . 5000000E 

00, .157S073E 

06, 

•2870602E 

02 . 

FG2 

1 70 


5 .50n00Q0E 

00, *167571 6E 

06, . 46 8 40 1 6 E 

02 , 

— • 10 OOOOOE 

0 1 , 

FG2 

180 


6 .66 324 1 4E 

OS, . 4357476E 

02, . SOOOOOOE 

00 . 

0 60 3861 7E 

05, 

FG2 

1 Q 0 


7 . 4 3 697 82E 

02, .5CCOOOOE 

00, . 7045053E 

05, 

•4369782E 

02 , 

FG2 

200 


8 . 50 OOOOOE 

00, . 5887652E 

05, *458891 8E 

02 . 

-* 1 0 OOOOOE 

0 1 , 

FG2 

210 


9 . 1 2 9 779 9E 

06. . 437491 2E 

02. . 50 00 000 E 

00 , 

•956 1 144E 

05, 

FG2 

220 


A .43 C7655E 

02, . 50 0000 OE 

00, . 7799880E 

05 , 

. 4 368724E 

02 , 

F G 2 

230 


1 . 500000 OE 

00, . 1 33352 8 E 

06. • 4369782E 

02 , 

•SOOOOOOE 

00 , 

FG2 

240 


2 . 8 303 09 8 E 

05. . 4369782E 

02. .50 OOOOOE 

00 * 

• 7296662E 

0 5/ 

FG2 

250 


DIMENSION El (95) , E2{ 95 ) , E3 ( 34 ) « E ( 16*7*2) 




FG2 

260 


EOUI VALENCE 

IEU.1 , 1 ) , El ( 1 )> 





FG2 

270 


DATA El/ 






FG2 

280 


1 0.353 OE 00. 

O 0 I 8 I 6 E 01, 0. 1727E 01 , 0* 1642E 

01, 

0.232 IE 01. 


FG2 

290 


2 0.27E3E 01 , 

0.1675E 01, 0.2257E 01 t 0.3458E 

01 . 

0.2094E 01, 


FG2 

300 


3 0.2028E 01, 

0.3053E 01, 0.7810E 00. 0.2497E 

01 , 

0.2132E 01. 


FG2 

310 


4 0*703 OE 00, 

-C. 768 1E-03.-0. 357 IE-02 ,-0.8059 E- 

03, 

-0.2810E-03. 


FG2 

320 


5 0.2 250E— 0 3* 

— 0 « 3 7 26 E — 03 , —0.601 7 E— 03 0 « 2 95 5 E— 

02. 

— 0 ,385 2E— 0 2 • 


FG2 

330 


6-0.2155E-02. 

-0. 1370E-02 , —0.40 32 E— 02 .-0. 1 175E- 

03. 

0.6404E— 04, 


FG2 

340 


7—0. 2840E— 02, 

-0.1406E-02. 0.5153E— 06, 0. 1634E- 

05, 

0. 1344E-06, 


FG2 

350 


194 



8- 

0*9244E-07.-0*9094E-07, 

0* 1884E-06 

,-0*6914E-07. 

0*1 359E— 05* 

FG2 

360 

9 

0*1 54 IE— 05* 0.7206E-06. 

0* 446 1 E— 06 

; 0* 1731 E— 05 , 

—0*8460 E—07, 

FG2 

370 

A- 

0*50 1 IE— 07* 0* 1 1 3 8E— 05 • 

0* 5735E— 06 

• —0* 96 1 8 E— 10 , 

— 0* 2783E— 09* 

FG2 

380 

1 

0 * 49 80E— lit 0.2914E-10* 

0.1275E-10 

• —0* 3765E— 10, 

0* 3996E— 10 , 

FG2 

390 

2- 

0*251 8E-09.-0.2492E-09. 

-0. 1067E-09 

.— 0.5622E— 19 . 

-0.2858E-09, 

FG2 

400 

3 

0*2 8 54E— 1 0 • 0.6619E-11, 

— 0* 2C20E— 09 

, —0 *8895E— 10 , 

0*5427 E— 14, 

FG2 

410 

4 

0* 161 7E-1 3,-0* 9780E— 1 5 • 

—0*21 1 2 E— 1 4 

,— 0*5056E— 15, 

0*2271E-14, 

FG2 

420 

5- 

0*2 99 IE— 14* 0*1 66 8E — 1 3 « 

0* 1406E-13 

• 0.5735E-14, 

0* 2436E— 1 4 , 

FG2 

430 

6 

0*162 IE -13, -0.21 97E-14, 

—0*227 1 E— 15 

, 0* 1335E— 13 , 

0*460 9E— 14, 

FG2 

440 

7 

0.3485E 05* 0* I329E 05* 

0* 1 132E 06 

* 0*51 96 E 05, 

0.1580E 06* 

FG2 

450 

8 

0.1686E C6* 0. 9406E 05* 

0*5850E 05 

, 0.6525E 05. 

0.5766E 05, 

FG2 

460 

9 

0*1 289E 06, 0.89C6E C5* 

0.7297E 05 

, 0* 1 306E 06. 

0* 8068E 05/ 

FG2 

4 70 

EQUIVALENCE (E(16.6,l) »E2( 1 ) ) 



FG2 

4 80 

DATA E 2/ 




FG2 

490 

1 

0*7 220E 05. 0* 7500E — 01 * 

-0*896 IE 01 

• 0 *4274E 01. 

0.2626E 01 , 

FG2 

500 

2- 

0*1181E 02,-0* 12 38E 02, 

0* 3698E 01 

, 0* 1912E 01 , 

-0«6335E 01. 

FG2 

510 

3 

0 • 3 6 7 IE 01, 0.3773E Oi, 

0* 1034E Ol 

, 0* 9378E 01. 

-0.1216E 02. 

FG2 

520 

4 

0*546 IE 01* 0.1162E 02. 

-a«9!OOE-OI 

,—0*1 85 2 E 01, 

0*176 5E 01, 

FG2 

530 

5 

0*4505E 01, 0* 29 04E 01. 

0*2 26 1 E 01 

• 0* 1414E 01 , 

0* 3753E 01* 

FG2 

540 

6 

0 * 2 6 5 3E 01, 0.2452E Cl. 

0* 1323 E 01 

,— 0 • 1596E 02. 

0*2S66H 00, 

FG2 

5 50 

7 

0*28955 01, 0* 34 83E 01, 

0* 2320 E 00 

• 0* 26 24F— 03 « 

0* 1 83 IE— 02 , 

FG2 

560 

8- 

0*1 25 OE-02.- 0*401 8E-02, 

-0* 3576 F — 03 

, 0* 3808E — 03 , 

-0.8027E-03, 

FG2 

5 70 

9- 

0 *4486E-02.-O,21 87E-02, 

— 0.2382E— 0 2 

.-9.5403E-03. 

0*1 840E— 0 1 , 

FG2 

5 80 

A 

0* I581E-03,-0. 3234E-03, 

-0*4981 F-02 

,-0*8811 E— 03 , 

— 0* 8699E— 09 , 

FG2 

590 

1- 

0*5e50E-06, 0.3816E-06, 

0*1 254 E— 05 

, 0*6591 E—07 , 

— 0 * 1 2 1 0 E— 0 6 , 

FG2 

600 

2 

0*1 697E— 06. 0*1 76 8E— 05 , 

0.6688E-06 

, 0*69 30 E— 06 , 

0* 1688E-06. 

FG2 

610 

3- 

0* 5 690E— 05, — 0* 3970E-C7 . 

0*49 32 E—07 

« 0.2072E-05, 

0 * 40 90E— 06 , 

FG2 

620 

4- 

0 • 544 1 E— 11, 0*764 IE— 1 0 , 

-0*3536 E-10 

,-0* 1592E-09 , 

— 0* 3 159E— 1 1 • 

FG2 

630 

5 

0* 1070E-10.-0* 1315E-10 . 

— 0 * 290 2 E— 09 

, —0 a 8277 E— 10 , 

-0.8428E— 10. 

FG2 

640 

6- 

0.1859E-10, 0* 684 IE— 09 , 

0.2542E-H 

,-0*2579E— 11, 

— 0* 3588E— 09, 

FG2 

650 

7- 

0 • 684CE— tO» 0*21 OOE — 1 5 • 

— 0 « 34 1 7 E— 1 4 

, 0*1 003E— 14 , 

0*70 1 3E— 14, 

FG2 

660 

8 

0*281 3E— 16,-0* 3032E — 1 5 . 

0*3831 E— 1 5 

. 0.1768E-13, 

0* 3596E— 14, 

FG2 

670 

9 

0 *3 630E— 14* 0* 593 1 E— 15, 

— 0*284 2E— 13 

, 0 * 2920 E— 17 , 

0*238 IE— 1 6/ 

FG2 

680 

EQUIVALENCE < E ( 15*5*2) , E3 (1)1 



FG2 

690 

DATA E 3/ 




FG2 

700 



1 0 • 2 234E— 13* 0. 3694E— 1 4 • O.4160E 05. 0.1329E 

05, 

0. 1132E 

06. 

FG2 

710 

2 0# 5 1 96E 05. Q.1580E 06. 0. 1686E 06. 0.8731E 

05. 

0.6525E 

05, 

FG2 

7 20 

3 0.6525E 05. 0. 5766E 05, 0.1289E 06. 0.89O6E 

05, 

0.7297E 

05, 

FG2 

730 

4 0.1306E 06. 0.8068E 05, 0.7220E 05. 0.2066E 

01 . 

0. 1 1 26E 

02. 

FG2 

740 

5 0.4450E 0 1 , — 0* 1 34 8E 02.-0. 1538E 02.-0.1000E 

02. 

0.5S94E 

01. 

FG2 

7 50 

6—0.68 1 9E 0I.-0.2220E 01, 0. I504E 01, 0.7660E 

01 , 

0. 1 10 IE 

03, 

FG2 

760 

7 0.1266E 02.-0.i4eiE 02.-0.188IE 01. 0.1435E 

02/ 



FG2 

7 70 

RHOA= OENSITV < LBM/FT3 1 




FG2 

7 80 

* RHC38 — .031 0854RHO A 




FG2 

790 

RHO< 1 l=. 51 S3 62*RH0B 




FG2 

800 

RHOC 2)=RHO(l 1 *RH0 C 1) 




FG2 

810 

X=0. 




FG2 

8 20 

DO 6 1*1. 19 




FG2 

830 

6 X=X4-Y(I) 




FG2 

840 

IF< A0S( (TN-TI/TNI-.C001 ) 20 .20.10 




FG2 

850 

10 T=TN 




FG2 

860 

Till) = T 




FG2 

870 

DO 12M=2,4 




FG2 

880 

12 T 1 < M ) = T1 ( 1 )*T1 (M-l > 




FG2 

890 

T 1 ( 5 ) = ALOG (Till ) > 




FG2 

900 

rt = r*t 




FG2 

910 

L=l 




FG2 

920 

IF ( T 1 < 1 ).GT. 600 0. )L=? 




FG2 

930 

DO 18 1=1, 16 




FG2 

940 

QK(I , 1)=T**RATES(2,I >* E XP IRATE S ( 1 , I >-RATES<3 

.1 >/T> 


FG2 

950 

QK (1,2) = E(I,l,U*(l,-Tl(5N-E(I,2,U*Tl(l)/2,- 

E< I.3.L)*Tl< 2)/6. 

FG2 

960 

X-ECI ,4.L)*T1 (3)/12.-EU,5,U*Tl <4>/20.+E( 1.6, 

LI /TIC ll-EC I 

, 7, L ) 

FG2 

970 

EQK( I ) = EXP(-QK< 1 .2) ) 




FG2 

980 

QK (1,2) = QK< 1,1)7 EQK(I) 




FG2 

990 

IF( I.GT.2)QK(I ,2) =RT*0K(I,2) 




FG2 

1000 

1 8 CONT JNUE 




FG2 

1010 

20 PL ( 1, 1) = QK< 1, l)*RHO(l)*Y< 12) 




FG2 

1020 

IND = 0 




FG2 

1030 

PL< 1, 2) = QK( 1, 1 ) ♦ RHO ( 1 ) * Y ( 1) 




FG2 

1040 

PL ( 1, 6) = QK( 1, 2>*RMO(l)*Y( 14) 




FG2 

10 50 



PL ( 

1 « 

7) 

a 

QK( 

1* 

2)*RHOt l)*Yt 

PL ( 

2. 

1 ) 

a 

QKt 

2* 

1 >*RHQ( l 1 * Y t 

PL ( 

2, 

2) 

a 

QKf 

2 . 

1 )*RHOC 1 ) *Y i 

PL 1 

2* 

6) 

a 

QK( 

2. 

2)*RHC( 1 )*Y< 

PL ( 

2, 

7) 

a 

QKt 

2 1 

2>*RH0t 1 )*Y< 

PL C 

3. 

l ) 

s 

QK( 

3, 

1 )#RHO( 1 )*X 

PL C 

3 « 

6) 

a 

2.*0Kt 

3i 2 ) *RHGt 2 ) 

PL t 

3. 

5) 

a 

QK < 

3. 

1 )*RH0t 1 ) *Y< 

PL 1 

3. 

10) 

a 

QKt 

3. 

2)*RH0< 2 )*Y< 

PL ( 

4 « 

1 ) 

a 

QKt 

4, 

1 »*RHO(l )*X 

PL ( 

4* 

6) 

= 

2* *QK ( 

4. 2 ) *RMOt 2) 

PL 1 

4 • 

5) 

a 

QKt 

4, 

1 )*RHD( 1 ) *Y< 

PLt 

4. 

10) 

a 

QKt 

'4, 

2)*RHCI(2)*Y< 

PL ( 

5 t 

1 ) 

a 

QKt 

5, 

1 >*RHO( 1 )*X 

PLt 

5. 

6) 

— 

QKt 

5, 

2 )*RHOt2 ) * Y t 

PL ( 

5. 

7) 

9 

QKt 

5, 

2 )*RH0(2 )*Y( 

PL< 

5, 

5 ) 

a 

QKt 

5, 

1 )*RHOC 1 ) *Y< 

PL ( 

5 * 

10) 

a 

QKt 

5 . 

2)*RHOC2)*V( 

PL C 

6, 

1 ) 

a 

QKt 

6* 

1 ) ♦RHOC 1 ) *X 

PL ( 

6 . 

6) 

a 

QKt 

6 * 

2)*RHO(2 ) * Y t 

PL 1 

6 ♦ 

7) 

= 

QKt 

6, 

2 > *RH0f 2 ) *Y t 

PL 1 

6 , 

5) 

a 

QKt 

6. 

1 )*RHO< 1 )*Yt 

PL ( 

6 * 

10 ) 

a 

QKt 

6, 

2 >*RHOt 2 ) ♦ Y ( 

PL ( 

7 * 

1 ) 

a 

QKt 

7, 

1 )*RHOt 1 ) *X 

PL ( 

7, 

6) 

a 

QKt 

7, 

2 ) ♦RHOt 2 ) *Y< 

PL ( 

7* 

7) 

a 

QKt 

7, 

2)*RHO<2)*Yt 

PL t 

7 » 

5) 

a 

QKt 

7, 

1 ) ♦ RHO ( 1 ) * Y t 

PLt 

7, 

10) 

a 

QKt 

7. 

2 )#RMO( 2 )*Yt 

PL< 

8 » 

1 ) 

a 

QKt 

8 » 

1 )*RHOt 1 )«X 

PL ( 

8, 

6) 

a' 

QKt 

8, 

2 )*RH0<2 ) *Yt 

PL { 

8 * 

7) 

a 

QKt 

8. 

2 ) *RHG< 2 ) ♦ Yt 

PL ( 

8 . 

5) 

a 

QKt 

8, 

1 )*RHOt 1 )*Y< 

PL ( 

8 . 

10 ) 

a 

QKt 

8 • 

2 ) *RHOt 2 ) *Vt 

PL ( 

9 , 

1 ) 

a 

QKt 

9* 

1 )*RHO( 1 )*X 

PL ( 

9 * 

6) 

a 

QKt 

9. 

2 )*RH0<2 >*Yt 


7) FG2 

10) FG2 

6) F62 

9) FG2 

31 FG2 

FG2 

*Yt 12)*X FG2 

11) FG2 

12) *Yt 12) FG2 

FG2 

*Y( 10)*X FG2 

9) FG2 

10 ) *Y < 10) FG2 

FG2 

1 6 ) * X FG2 

15) *X FG2 

14) FG2 

15) *Y ( 16) FG2 

FG2 

16) *X FG2 

13) ♦X FG2 

12) FG2 

13) *Y C 16) FG2 

FG2 

12)*X FG2 

2>*X FG2 

7) FG2 

2)*YC 12) FG2 

FG2 

10)*X FG2 

7) *X FG2 

8) FG2 

7>*Yf 10) FG2 

FG2 

10) *X FG2 


1060 
10 70 
10 80 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
12 50 
1260 
1270 
12 80 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 



PL ( 

9 , 

7) 

X 

QK< 

9. 

2>*RH0C2)*YC 

3)*X 

FG2 

1410 

PH 

9. 

5) 

X 

QKC 

9, 

1 >*RH0C1 )*YC 

6) 

FG2 

1420 

PL C 

9. 

10) 

3 

QKC 

9, 

2)*RHCC2)*YC 

3)*YC 10) 

FG2 

1430 

PL C 

10. 

1 > 

X 

QKC 

10. 

1 >*RHOC 1 )*X 


FG2 

1440 

PL ( 

10* 

6) 

= 

OKI 

10, 

2I4RH0C2 )*Y« 

10)*X 

FG2 

1450 

PL ( 

10, 

7) 


OK ( 

10. 

2 >*RHC 12) *Y C 

6)*X 

FG2 

1460 

PL < 

10, 

5) 

“ 

QKC 

10, 

1 )*RHOC 1 )4V< 

17) 

FG2 

14 70 

PL< 

10, 

10) 

X 

QKC 

10* 

2)*RH0C2)*YC 

6>*YC 10) 

FG2 

1480 

PL < 

11 , 

1 ) 

X 

QKC 

11. 

1 )*RHOC 1 )*X 


FG2 

1490 

PLC 

11 . 

6) 

X 

QKC 

11, 

2 > +RHOC 2 ) *YC 

1 4 ) *X 

FG2 

1500 

PL ( 

11 • 

7) 

X 

QKC 

11 , 

2 )*RHOt 2 )*Y< 

2)*X 

FG2 

1510 

PL ( 

11 * 

5) 

X 

QKC 

1 1 * 

1 J*RHOC 1 ) *YC 

1) 

FG2 

1520 

PLC 

11 , 

10) 

X 

QKC 

11 . 

2)*RH0C2)*Y< 

2>»YC 14) 

FG2 

1530 

PL< 

12, 

1 > 

X 

QKC 

12 . 

1 )*RHQC 1 ) *X 


FG2 

1540 

PL< 

12, 

6) 

x 

QKC 

12. 

2 ) 4RH0C2 ) *YC 

2>*X 

FG2 

1550 

PLC 

12, 

7) 

X 

QKC 

12. 

2)*RM0(2)*YC 

3)*X 

FG2 

1560 

PL ( 

12, 

5) 

X 

QKC 

12. 

1 )*RHO< 1 ) #YC 

4) 

FG2 

1570 

PL ( 

12, 

10) 

X 

QKC 

1?. 

2 )*RH0C2 ) *Y€ 

3>*YC 2) 

FG2 

1580 

PL( 

13, 

1 ) 

= 

QKC 

13, 

1 )*RHOCl)*X 


FG2 

1590 

PL ( 

13. 

6) 

X 

2* *QK( 

13, ?)*RHCC2)*YC 2 ) *X 

FG2 

1600 

PL< 

13, 

5) 

X 

QKC 

13 . 

1 )*RHOC 1 )*YC 

3) 

FG2 

16 10 

PL ( 

13, 

10 ) 

X 

QKC 

13, 

2 I4RH0C 2 ) *YC 

2)*Y( 2) 

FG2 

1620 

PL ( 

14. 

1 ) 

= 

QKC 

14, 

1 )*RHO< 1 ) *X 


FG2 

1630 

PL C 

14 , 

6) 

X 

QKC 

14. 

2 )*RHOC2 ) * Y C 

16) *X 

FG2 

1640 

PL ( 

14, 

7) 

X 

QKC 

14, 

2 ) *RHCJC 2 ) *Y C 

s>*x 

FG2 

1650 

PLC 

14, 

5) 

X 

QKC 

14 , 

1 )*RHOC 1 ) *YC 

2) 

FG2 

1660 

PL< 

14, 

10) 

X 

QKC 

14, 

2)*RH0C2)*YC 

5>*YC 16) 

FG2 

1670' 

PL< 

15, 

1 ) 

X 

QKC 

15, 

1 )*RHO< 1 |*X 


FG2 

1680 

PL C 

15, 

6) 

X 

QKC 

15, 

2 I4RH0C2) *YC 

2>*X 

FG2 

1690 

PLC 

15 , 

7) 

X 

QKC 

15, 

2 )*RHO f 2 ) *Y C 

6)*X 

FG2 

1700 

PL < 

15. 

5) 

X 

QKC 

15. 

1 )*RHO C 1 ) * Y C 18) 

FG2 

1710 

PL C 

15, 

10) 

X 

QKC 

15, 

2)*RH0C2)*YC 

6)*YC 2) 

FG2 

1720 

PL { 

16, 

1 ) 

= 

QKC 

16* 

1 ) 4RH0C 1 )*X 


FG2 

1730 

PLC 

16, 

6) 

3 

QKC 

16, 

2)*RHG42)*YC 

2)*X 

FG2 

1740 

PL< 

16, 

7) 

X 

QKC 

16, 

2>*RH0t2)*YC18)*X 

FG2 

1750 




PL C 16 

► f 

5) = QK( 16. 1 )*RHO(I )*YC19) 


FG2 

1760 


PH 16 

i. 10) = QKC 16* 2)*RHOC2)*YC18)*YC 21 


FG2 

1770 


GO TO 

(31 

.32. 33. 34-, 35. 3 6. 37,33*39 ,40 ,4 I .42 , 43 .4 4. 45 , 46,47, 48, 4 9 ) • 

KFG2 

1780 

3 1 

AA 


* PU 11. 10) - PL (11, 5) 


FG2 

1790 


All 

= 

AA -PL (1,1)- PL(ll.l) 


FG2 

1800 


GO TO 

90 



FG2 

1810 

32 

BB = 

PL( 

7, 6) + PLC 7, 10)+ PLC 11» 6) + PL( 11. 10) 


FG2 

1820 


BB =BB + 

PU 12, 7) ♦ PL ( 12. 1G)+2.*PL( 13, 6> + 2.*PL< 13, 

10 ) 

FG2 

1830 


A A = 

PL( 

7, 5) ♦ PLC 11. 5 ) ♦ PL< 12, 5) +2. *PLf 13. 5) 


FG2 

1840 


AA*=A A + 

PL( 14. 1C) + PLC 15, 5) + PLC 16 , 5) 


FG2 

1850 


88=88+ 

PLC 14, 1> + PLC 14. 5) ♦ PL C 15.10) + PLC 15. 7) 


FG2 

1860 


BB=BB + 

PL< 16.10) + PL €16, 7) 


FG2 

1870 


All 


ffl 

IQ 

1 

< 

< 

II 


FG2 

I860 


GO TO 

90 



FG2 

1890 

33 

AA = 

PL ( 

9, 5) + PLC 12. 5 ) ♦ PLC 13, 10) 


FG2 

1900 


BB = 

PL ( 

9. 10)+ PL( 12, 10)+ PLC 13. 5) 


FG2 

1910 


AA 


= AA - BB 


FG2 

1920 


All 


= AA - PL ( 2, 6) - PLC 9, 6) - PLC 12, 

6 ) 

FG2 

1930 

1 - PLC 

l 3 

. 1 ) 


FG2 

1940 


GO TO 

90 



FG2 

1950 

34 

A A = 

PL ( 

12. 10) 


FG2 

1960 


BB = 

PL< 

12. 5) 


FG2 

1970 


AA 


- AA — BB 


FG2 

1980 


A I I 


= AA - PLC 12, 1 ) 


FG2 

1990 


GO TO 

90 



FG2 

2000 

35 

9B = 

PL( 

14. 10) 


FG2 

2010 


A A = 

PL( 

14. 5) 


FG2 

2020 


AA 


= AA - BB 


FG2 

2030 


All 


= AA - PLC 14, 6) 


FG2 

2040 


GO TO 

90 



FG2 

20 50 

36 

AA = 

PL ( 

9. 10)+ PLC 10. 5) + PLC 15. 5) 


FG2 

20 60 


8B = 

PL ( 

9. 5) + PLC 1C. 10) + PLC 15. 10) + PLC 15. 6) 


FG2 

20 70 


AA 


* AA - BB 


FG2 

2080 


All 


= AA - PLC 2, 1) - PLC 9, 1) - PLC 10. 

6) 

FG2 

2090 


GO TO 

90 



FG2 

2100 



37 

AA = 

PL ( 

7* 10) + 

PLC 

8. 5) 





FG2 

2110 


8B = 

PLC 

7 • 5) + 

PLC 

8. 10) 





FG2 

2120 


AA 


IS 

CD 

I 

< 

< 

li 







FG2 

2130 


All 


= AA 


PLC l. 6) - 

PLC 7. 

1) - 

PLC 8. 

6) 

FG2 

2140 


GO TO 

90 








FG2 

2150 

38 

A A = 

PL C 

8* 10) 







FG2 

2160 


BB = 

PL C 

8. 5) 







FG2 

2170 


AA 


CD 

CD 

1 

< 

< 

II 







FG2 

2180 


All 


= AA 

- 

PL < 8 . 1 ) 





FG2 

2190 


GO TO 

90 








FG2 

2200 

39 

AA = 

PL( 

4, 10) 







FG2 

2210 


BB = 

PLC 

4, 5) 







FG2 

2220 


AA 


= AA - BB 







FG2 

2230 


A I I 


= AA 

- 

PLC 2* 7) - 

PLC 4. 

1) 



FG2 

2240 


GO TO 

90 








FG2 

2250 

40 

B9 = 

PL( 

2 . 2)+2«*PL< 

4. 6 ) + 2* *PL C 

4, 10)+ 

PLC 

8. 7) 


FG2 

2260 


BB=BB+ 


PL ( 8 « 10) + 

PLC 9. 7 ) + 

PLC 9, 10) + 

PLC 10. 

7) 

FG2 

2270 


AA=2**PLC 

4* 5 ) + 

PLC 

8. 5 ) + PLC 

9. 5 ) + 

PLC 

10. 5) 


FG2 

2280 


BB=BB+ 


PL ( 10. 10) 







FG2 

2290 


A 1 I 


= AA - 8B 







FG2 

2300 


GO TO 

90 








FG2 

2310 

4 1 

AA = 

PL ( 

3, 10) 







FG2 

2320 


BB* 

PL C 

3* 5 > 







FG2 

2330 


AA 


= AA - BB 







FG2 

2340 


A I I 


= AA 

— 

PLC 3. 1) 





FG? 

2350 


GO TO 

90 








FG2 

2360 

43 

BB = 

PL< 

1* 2) +2* 4PL< 

3. 6)+2**PLC 

3. 10) + 

PLC 

6. 1 ) 


FG2 

2370 


AA=2«*PL< 

3. 5) + 

PLC 

6. 10)+ PLC 

7, 5) 




FG2 

2380 


BB =0 S+ 

PL ( 6, 5) + 

PLC 7. 7) + 

PLC 7* 10) 



FG2 

2390 


A I I 


= AA - BB 







FG2 

2400 


GO TO 

90 








FG2 

2410 

43 

AA = 

PL( 

6, 5) 







FG2 

2420 


BB = 

PL C 

6. 10) 







FG2 

2430 


AA 


= AA - BB 







FG2 

2440 


All* 


a AA 

- 

PLC 6, 6) 





FG2 

2450 


200 




GO TO 

90 





4 A 

AA = 

PLI 

5* 10> + PLI 

11 

. 5) 



BB~ 

PLI 

5* 5) + PLI 

11 

, 10) 



AA 


s AA - BB 





A I I 


=s AA 

- PLI 1. 

7) - 


GO TO 

90 





45 

AA = 

PLI 

5. 5) 





88= 

PLI 

5. 10) 





AA 


a AA - 88 





All 


= AA 

-PLI 5. 

6) 


GO TO 

90 





46 

AA® 

PLI 

5. 5) ♦ PLI 

6 

• 5 ) ♦ 

PLI 


3B = 

PLI 

5, 10)+ PLI 

6 

. 101 + 

PLI 


AA 


= AA - BB 





All 


= AA 

- PL 1 5 , 

7) - 


GO TO 

90 





47 

AA 


ss PLI 10, 10) 

- 

PLI 10 

* 5) 


All 


= AA 

-PLI 10, 

1 ) 


GO TO 

90 





40 

AA 

= 

PLI 15, 10) - PL (15, 

5) ♦ 

PLI 16, 


A I I 

st A A - PLUS. 

1 ) 

- PL 116, 6) 


GO TO 

90 





49 

AA 

a 

PLI 1 6 , 1 0 ) - PL 1 1 6 

* 5) 



All 

® AA - PLI 16, 

1 ) 


90 

PLI 

1 * 

1)®VI 1 ) *PL 1 

1 , 

i ) 



PL < 

1 . 

6 ) = V 1 7>*PLt 

1 , 

6) 



PLI 

2 * 

1)=!Y( 6 ) 4PL { 

2, 

1 ) 



PL< 

2, 

6>=Vl 3 ) *PL< 

2. 

61 



PL ( 

3, 

l)=Yl 11) *PL 1 

3. 

1 ) 



PL< 

3, 

6 ) =Yl 12 ) *PLI 

3, 

6)/2# 



PL ( 

4, 

l)=Yl 9 ) *PL 1 

4, 

I ) 



PL < 

4, 

6 ) =Yl 10)*PLI 

4, 

6)/2. 



PL ( 

5, 

1 ) = Yl 14 ) *PLl 

5, 

1 ) 



PL I 

5 » 

6)=YI 15) *PLl 

5, 

6) 



PLI 

6, 

1 ) =Y 1 12) *PLl 

6 « 

1 ) 







FG2 

2460 





F G2 

2470 





FG2 

2480 





FG2 

2490 

PLI 

5, 1) - PLI 

11* 

7) 

FG2 

2500 





FG2 

2510 





FG2 

2520 





FG2 

2530 





FG2 

2540 





FG2 

2550 





FG2 

2560 

14, 

5) 



FG2 

2570 

14* 

10) 



FG2 

2580 





FG2 

2590 

PLI 

6, 7) - PLI 

14, 

7) 

FG2 

2600 





FG2 

2610 





FG2 

2620 





FG2 

2630 





FG2 

2640 

5) 

- PL<16,10) 



FG2 

2650 





FG2 

2660 





FG2 

2670 





FG2 

2680 





FG2 

2690 





FG2 

2700 





FG2 

2710 





FG2 

2720 





FG2 

2730 





F G2 

2740 





FG2 

2750 





FG2 

2760 





FG2 

2770 





FG2 

2780 





FG2 

2790 





FG2 

2800 


201 



191 

51 


52 


53 


PLC 

6 t 

6 ) =V{ 

13M-PLC 

6 * 

6) 




FG2 

2810 

PL C 

7. 

1 ) = VC 

7>*PLC 

7* 

1 ) 




FG2 

2620 

PLC 

7, 

6>=Y< 

2>*PL< 

7, 

6) 




FG2 

2830 

PLC 

8, 

1 )=YC 

8)*PLC 

8, 

1 I 




FG2 

2840 

PL C 

8, 

6>=Y< 

7>+PLC 

8 • 

61 




FG2 

2850 

PL< 

9, 

1 ) — Y ( 

6>*PLC 

9. 

1 ) 




FG2 

2860 

PL < 

9. 

6)=YC 

3 ) *PLC 

9, 

6 ) 




FG2 

2870 

PLC 

10. 

1 >=YC 

1 7> *PL C 

10. 

1 > 




FG2 

2B80 

PL C 

10* 

6)=YC 

6>*PLC 

10, 

6) 




FG2 

2890 

PL C 

11 * 

1 >=YC 

1 >*PL< 

11, 

1 ) 




FG2 

2900 

PL < 

1 1 * 

6) =YC 

2> *PLC 

11. 

6) 




FG2 

2910 

PL C 

12. 

1 >=YC 

4 M>PLC 

12, 

1 ) 




FG2 

2920 

PLC 

12* 

6 ) = Y C 

3>*PL( 

12, 

6) 




FG2 

2930 

PLC 

13. 

1 >=Y< 

3 > *PL C 

13, 

1 > 




FG2 

2940 

PL C 

13. 

6 ) =Y< 

2 » *PL( 

13, 

6)/2, 




FG2 

2950 

PL < 

14. 

1 )=YC 

2>*PL( 

14, 

1 ) 




FG2 

2960 

PLC 

14. 

6)=YC 

S)*PLC 

14, 

61 




FG2 

2970 

PH 

15. 

1 ) = Y C 

1 8>*PLC 

15, 

1 > 




FG2 

2980 

PL< 

IS. 

6)=YC 

6 > TPL C 

15. 

6) 




FG2 

2990 

PLC 

16. 

1 ) = V ( 

19) *PL C 

16, 

1 ) 




FG2 

30 00 

PLC 

16. 

6)=VC 

18) *PL C 

16, 

6) 




FG2 

3010 

GO 

TO (51 

. £2.53 

.54,55. 

56.57. 

58 . 59 ,60 ,61 ,62 , 63 

» 64 • 65 » 66 ♦ 

67, 

68.69) 

. KFG2 

30 20 

AA- 

PLC 

1 . 

6) + PLC 11. 

6) 




FG2 

30 30 

BB “ 

PL ( 

1 . 

1> + PLC 1 1. 

1 > 




FG2 

3040 

B 

= 

AA - BB 






FG2 

3050 

GO 

TO 95 








FG2 

3060 

BB = 

PLC 

7. 

6)4- PLC 11. 

61+ PLC 12. 

6) +2.*PL< 

13, 

6) 

FG2 

3070 

AA = 

PL ( 

7. 

1 ) + PLC 11, 

11+ PLC 12, 

1 > +2.+PLC 

1 3, 

1 ) 

FG2 

30 80 

AA = 

AA + 

PLC 14 

, 6 ) + 

PLC 15 

. 1 ) + PLC 16 • 1 I 




FG2 

30 90 

BB = 

BB + 

PLC 14 

. 1) + 

PLC 1 5 

, 6) + PLC 16,6) 




FG2 

3100 

B 

• = 

AA - BB 






FG2 

31 10 

GO 

TO 95 








FG2 

3120 

AA = 

PLC 

2* 

11+ PLC 9, 

1>+ PLC 12, 

1>+ PLC 

13, 

6) 

FG2 

3130 

BB = 

PLC 

2 v 

6>+ PLC 9, 

6 ) + PLC 12. 

6) + PLC 

13, 

1 ) 

FG2 

3140 

B 

s: 

A A - B8 






FG2 

3150 


202 




GO TO 

95 








FG2 

3160 

54 

AA = 

PLC 12 * 

6> 







FG2 

3170 


3B = 

PLC 12 * 

n 







FG2 

3180 


8 

= AA - 

BB 







FG2 

3190 


GO TO 

95 








FG2 

3200 

55 

AA = 

PL C 14* 

1) 







FG2 

3210 


BB = 

PLC 14 « 

6) 







FG2 

3220 


B 

= AA - 

BB 







FG2 

3230 


GO TO 

95 








FG2 

3240 

56 

AA * 

PL ( 2. 

61+ PLt 

9. 

6) + 

PLC 

10 * 

1) ♦ PLC 15* 

t) 

FG2 

3250 


BB = 

PL( 2 . 

n ♦ PLC 

9. 

1 >♦ 

PLC 

10. 

6) + PLC 15. 

6) 

FG2 

3260 


B 

= AA - 

BB 







FG2 

32 70 


GO TO 

95 








FG2 

3280 

57 

A A = 

PLC 1 * 

1 ) ♦ PLC 

7. 

6) + 

PLC 

8 * 

1) 


FG2 

3290 


BB = 

PL< 1 ♦ 

6) + PLC 

7, 

1 1 + 

PLC 

8. 

6) 


FG2 

3300 


B 

= AA - 

B8 







FG2 

3310 


GO TO 

95 








FG2 

3320 

58 

A A = 

PL< 8. 

6) 







FG2 

3330 


BB = 

PLC a * 

1) 







FG2 

3340 


8 

= A A - 

BB 







F G2 

3350 


GO TC 

95 








FG2 

3360 

59 

AA = 

PL( 2* 

1 >+ PLC 

4 « 

6 1 





FG2 

3370 


BB = 

PL( 2. 

6 ) + PLC 

4 • 

1 ) 





FG2 

33 80 


a 

= AA - 

BB 







FG2 

3390 


GO TO 

95 








FG2 

3400 

60 

AA = 

PL ( 2. 

6| +2# *PLC 

4 , 

1 1 + 

PLC 

8. 

1) + PLC 9, 

1 ) 

FG2 

3410 


BB = 

PL ( 2 . 

1 ) + 2» *PL( 

4 • 

6)4- 

PLC 

8 » 

6) + PLC 9. 

6) 

FG2 

3420 


AA =AA+ 

PL( 

io. n 







FG2 

3430 


BB=BB+ 

PLC 

10. 6> 







FG2 

3440 


B 

= AA - 

BB 







FG2 

3450 


GO TO 

95 








FG2 

3460 

6 1 

AA = 

PLC 3, 

6) 







FG2 

3470 


BB = 

PL( 3, 

1) 







FG2 

3480 


B 

If 

> 

> 

l 

BB 







FG2 

3490 


GO TO 

95 








FG2 

3500 


203 



62 AA* PLC 1* 61 ♦2* ♦PL C 3, 11 + 

BB* PLC 1* 1>*2**PLC 3. 61 + 

B * A A — BB 

GO TO 95 

63 AA= PLC 6. 11 

BB* PLC 6, 61 

9 * A A - BB 

GO TO 95 

64 AA= PLC 1* 1)4 PM 5* 6 > ♦ 

BB* PL ( It 61 ♦ PLC 5* 11 + 

B st AA - BB 

GO TO 95 

65 AA* PLC 5* 1) 

BB* PLC 5 ■ 61 

B = AA - BB 

GO TO 95 

66 AA* PLC 5. 11+ PLC 6, 11 + 

BB* PLC 5 « 6) ♦ PLC 6* 61 + 

B = AA - BB 

GO TO 95 

67 AA *PLC 10.61 
9B=PLC 10.1 l 

B = AA - BB 

GO TO 95 

6 8 AA = PLC 15. 61 + PLC16.il 
3B= PLC 15. 11 ♦ PLC 16, 61 

B = AA - BB 

GO TO 95 
69 AA* PLC 16, 61 
9B= PLC 16. 1 ) 

B = AA - 98 

95 IF CIND 1 110.101 • 110 
101 INO = 1 

gamma * 0* 

DO 1021*1.16 


PLC 6. 61+ PLC 

PLC 6* 11+ PLC 


PLC 11, 11 

PLC 11. 61 


PLC 14, 11 

PLC 14. 61 


7. 1 ) FG2 3510 

7, 6) FG2 3520 

FG2 3530 
FG2 3540 
FG2 3550 
FG2 3560 
FG2 3570 
FG2 3580 
FG2 3590 
FG2 3600 
FG2 3610 
FG2 3620 
FG2 3630 
FG2 3640 
FG2 3650 
FG2 3660 
FG2 3670 
FG2 3680 
FG2 3690 
FG2 3700 
FG2 3710 
FG2 3720 
FG2 3730 
FG2 3740 
FG2 3750 
FG2 3760 
FG2 3770 
FG2 3780 
FG2 3790 
FG2 3800 
FG2 3810 
FG2 3820 
FG2 3830 
FG2 3840 
FG2 3850 


204 



IF ( I »GT»2l GA MM A = la FG2 

Q = ( RATES (2*1) + RATESI3, Il/Tl/T FQ2 

PL C I * I ) = Q*PL (1*1) FG2 

Q = GAMMA/RT ♦ O - E C I , .1 ,L > /T1 f I) - E(I.2.L)/2a - E< 1 . 3 *L ) *T 1 < 1 > / 3FG2 
Xa - E( I a4»L>*Tl (2) /4a - E < I .5 ,L 1 *T1 i 3 1/5 a - Ed .6.U/T1I 2) FG2 

102 PL<I.e> = 0*PL<I.6> FG2 

C = 8 FG2 

GO TO 191 FG2 

110 RETURN FG2 

ENO FG2 


3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 


205 



non 


SUBROUTINE OUPPUT 
COMMON /KKM/ALP! 
COMMGN/FOG/AII 
COMMCN /FRSTRM/ U 


< I OUT) 

60) ,SVA(60) *SDIFF (60),SAII( 60 ) * SB( 60 ) 

,CWT, 8. TOLD 

INF, RINF, UINF2, R • RE* LXI . ITM, IEM* NETA 


COMMON /RH/ DUO. DPMI , TO »RZB . PD *HD .HTCT AL 
COMMCN /YL/XXX! 60) . VONO(60 ) 

COMMCN /VEL/ F ( 60 ) ,FC( 6(5 > *Z C60 > . V (60 ) 

COMMON/PROP1/PI (60) »RH0(60 > • T(60 > .BMW (60 ) • CM ( 20, 60 ) *CE< 5.60) 
DIMENSION Y < 20 .60 ) 

EQUIVALENCE (CM(l).Y(l)) 

DIMENSION ET A( 60 ) 

EQUIVALENCE (NETA.NP). (PD.PRE). ( YCND( I ) ,ETA( i ) ) 


*♦** 


PRINT RESULTS OF SPECIES ITERATIONS 


**** 


1 

1 1 
61 


71 

2 

20 


30 

40 

50 


NS = 19 

GO TO ( 1 . 2 ) . I OUT 

OUTPUT CONVERGED RESULTS 
CONTINUE 
WR ITE( 6.61 > 

FORMAT ( /4X . »PT* • ♦ 1 7X, *ETA* • 1 3X * * DEN S IT Y • *9X*» 
t OC ITY’/J 

WR ITE( 6,71 )( I ,ETA( I ) ,RH0 (I ) , T ( I ) • V( I) • 1= i , NP) 
FORMAT ( I7.4E20* 7) 

OUTPUT INTERMEDIATE RESULTS 
WR ITE( 6,20 ) 

FORMAT ( 1HI 7X**ETA* ,9X**C0* .1 0 X • * C* • 9X . * C2 • « 9X 
1 • , 9X ♦ * C N* , BX.'HCN' ,9X.*H2».10X.«H») 

D030J=l,NP 

WR TTE (6,40)ETA(JI »(Y(I*J)*I= 1.10) 

FORMAT! 1 IF 1 1*7) 

WRITE! 6,50 ) 

FORMAT ( 8X»*ETA* .9 X » • N2* »10X,*N* , 9X • * N+* , 105 
X.7X, «C2H2» . 8 X « 'CaH'.aX. *C4H • ) 

0060 1 • NP 


OUPP 

10 

OUPP 

20 

OUPP 

30 

1 OUPP 

40 

OUPP 

50 

OUPP 

60 

OUPP 

70 

OUPP 

80 

OUPP 

90 

OUPP 

100 

OUPP 

tio 

OUPP 

120 

OUPP 

130 

OUPP 

140 

OUPP 

150 

OUPP 

160 

OUPP 

170 

OUPP 

180 

OUPP 

190 

OUPP 

200 

VELOUPP 

210 

OUPP 

220 

OUPP 

230 

OUPP 

240 

OUPP 

250 

OUPP 

260 

C2HOUPP 

270 

□ UPP 

280 

OUPP 

290 

OUPP 

300 

OUPP 

310 

OUPP 

320 

E- *OUPP 

330 

OUPP 

340 

OUPP 

350 
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60 WRITE* 6.40 ) ETA I J> .*Y*I.J).I = U .19) 
RETURN 
END 


OUPP 360 
OUPP 370 
OUPP 380 
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SUBROUTINE COUPLE 

•THIS SUBROUTINE SOLVES THE SPECIES AND ENERGY EQUATIONS 

COMMON /FRSTRM/ U INF* RINF, U I NF2 , R • RE, LXI • ITM, I EM, NETA 

COMMON /CO NV / FPRC T, TPRCT .DDAMP ,TDA MP, POT I L 

COMMON /CON VI /HDAMP 

COMMON /DEL/ OELTA ,DTI L ,DTILS 

COMMON /MAI M/KEEP, MAXE ,MAXM ,MAXD, I DEBUG, MCONV ,E CONV, OCONV, LT , I AB 
COMMON /NON/RD Z, MUDZ, RMD2 * AKNF ,HNF,CFNF 
COMMCN/NUMBE R/NSP , NNS , NE ,NC 

COMMON/PROP1/PI { 60) ,RH0<60 ) , T< 60 ) , AMWC60 > , C (20 ,60 ) , CE( 5, 60 ) 

CO MM ON /PROP 2/ MU< 60 ) , RM C 60 ) • AK(60) 

CO MMCN /PROP3/CP S( 20 ,60) , HS ( 20 *60) *CP <60),HM<60) 

COMMON /VECTOR/ SUB( 60 ) • D I AG ( 60 ) , SUP (60) ,8(60) 

COMMON /RFLUX/ E ( 60 ) , I RAD , I T YPE 
COMMON/ID/SP(20) ,EL<5) 

COMMON /RH/ DUD ,DPHI ,TD«RZB,PD, HD * HT OT AL 
COMM CN /SP2/BR ♦ S ( 2 0 ) ,CSHOCK(S) 

COMMON /VEL/ F (60 ) ,FC.( 60 ),Z(60),V<60) 

COMM CN/WALL/R VW, PR W,T WOLD ,FLUX(20 ) ,CWALL(20 ) , ECW ALL ( 5) 

COMMON /YL/ETA( 60) ,YOND(60 ) 

COMMON /OLD/ TOLD ( 60 ) *EOLD < 60 > , RHCS ( 60 > 

CO MM ON /DO /D ( 60) 

DIMENSION RHOLDC60) 

REAL MU, MUDZ 
LOGICAL MCONV, ECONVbDCCNV 
COMMON /NETI/NETA1 , NE T A 2 
COMMON/KKB/RHQA ,T A , VA , YA ( 1 9 ) 

COMMON /FOG /AI I ,BI ,CI ,TOLOt 

CO MMCN /IT /AC 

COMMON/CK/ I SN( 20) * MWT ( 19) 

REAL MWT 

DIMENSION Y (20 *60 ) • SY(20,60) 

DIMENSION SACI (19,60) 


COUP 

10 

COUP 

20 

COUP 

30 

COUP 

AO 

COUP 

50 

COUP 

60 

COUP 

70 

COUP 

80 

COUP 

90 

COUP 

xoo 

COUP 

110 

COUP 

120 

COUP 

130 

COUP 

140 

coup 

150 

COUP 

160 

COUP 

170 

COUP 

lao 

COUP 

190 

COUP 

200 

COUP 

210 

COUP 

220 

COUP 

230 

COUP 

240 

COUP 

2 50 

COUP 

260 

COUP 

270 

COUP 

280 

COUP 

290 

COUP 

300 

COUP 

310 

COUP 

320 

COUP 

330 

coup 

340 

COUP 

350 
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DIMENSION RED ( 60 ) .RES C60) .RET ( 60 ) 

DATA N S. SYMCH. SPER .TMCH/19 . *50 ..80..01/ 

INITIALIZE 

NETA 1 = NETA - 1 
NETA 2 = NETA - 2 
ECONV = .FALSE* 

ITER = 0 
DO10J=I .NETA 
10 TQLD(J) = T(J) 

AC = 8. 128E-08*< TD**1 .659) ZIP! ( 1 »*R*UINFI 
AR = R/UINF 
C ** COMPUTE THE V COORDINATE *+ 

YOND(l) = 0.0 

SUM =0.0 

DO 39 K = 2 » NE T A 

DETA = ETA(K) -ET A<K-1 ) 

SUM = SUM +DETA* t 1 • /RHC ( K> ♦l./RHO(K-l) >/2.0 
YOND(K) = DTIL *SUM 
39 CONTINUE 

DELTA = YOND(NETA) 

00 49 K = 1 » NE TA 

YOND(K) = YOND(K) /YOND(NETA) 

49 CONTINUE 

IF{ IAB.NE. 0)GO TO 528 
CALL SPECIE 

CALL PROPRTINSP.l .NETA) 

C 44** COMPUTE FLUX DIVERGENCE **** 

528 IF { IRAD.EQ.3 * AND. I TYPE .EG* I ) C ALL EFLUX 
IF < IRAD.EQ.3. AND. I TYPE.EQ.C )C ALL LR AD 
TOLD 1 = 0. 

C RDZ - DENSITY AT SHOCK (SLUGS OF M / FT**3) 

RHOD = RDZ432.174 

C RHOD a DENSITY AT SHOCK ( LB M OF M / FT**3I 


COUP 

360 

COUP 

370 

COUP 

380 

COUP 

390 

COUP 

400 

COUP 

410 

COUP 

420 

COUP 

430 

COUP 

440 

COUP 

450 

COUP 

460 

COUP 

470 

COUP 

480 

COUP 

490 

COUP 

500 

COUP 

510 

COUP 

520 

COUP 

530 

COUP 

540 

COUP 

550 

COUP 

560 

COUP 

570 

COUP 

5 80 

COUP 

590 

COUP 

600 

COUP 

610 

COUP 

620 

COUP 

630 

COUP 

640 

COUP 

650 

COUP 

660 

COUP 

670 

COUP 

680 

COUP 

690 

COUP 

700 


N> 

O 

LD 



u u 


+ C2( OX » DX1 ) *V( J I 


**** CALCULATE DIFFUSION COEFFICIENT **** 

IIO DO 1 20 J = 1 .NET A 
120 D ( J ) = AC*(T( J>**1 ,659) 

>130 CALL PROPRT (NSP.l.NETA) 

DX1 = ETA < 2) - ETA< l > 

D0200J=2.NETA1 
DX = ETACJ+1) - ETA(J) 

J1 = J - 1 

CO 1 3 = 2* *RHQ ( J ) * A K ( J) /( DT I L*CP I J ) ) 

CO 1 A = - RHO < J > *V ( J) 

CO 1 5 = (Cl (DX.DXl >*RH0(J+1 >*AM J+l )/CP(J+l> + 

X AK( J)/CP( J) + C3( DX.DXl ) *RHO( J-l )*AK( J 

CON4 = 2. *RHO( J)*V(J)*V( J)*(C1 < DX.DXl >*V( J+l > 

X C3CDX.DX1 >*V( J-l ) 1 
CONS = 2«*DTIL*E( J I /RHO ( J) 

CONS = Oe 

CGN7 = 0. 

COIS = 0* 

0020 231 =1 , NSP 

CQN6 = CONS + HS< I • J) * ( C4 (DX.DXl >*C( I . J + l ) + 

X C6(DX,0X1 )*C(I ,J-1) > 

CV = (Cl (DX.DXl >*C( I , J+l I 

X C3(DX«DX1 )*C ( I »J— 1) > 

CON7 = CON 7 + HS(I,J)*CV 

CO 1 8 = COl 8 + CV* (Cl (DX.DXl l*HS (I * J+ 1 l + C2C DX, OX l ) *HS( I , J ) + 

X C3<DX,DXt )*HS(I .J-l >> 

2023 CONTINUE 

CV = ( 2»*RHQ( J) *AK( J)/CP< J) - RHO ( J 1 *RM0( J ) *D < J >)/ DT IL 
CO 1 6 a CONS* C V 

CD = (Cl (DX.DXl >*RH0(U+l ) *RH0( J+l )*D( J+l ) + C 2( DX , DX 1 ) *RHO( J > * 
X RHO ( J ) *D( J ) + C3<DX .DXI ) *RHO( J-l l*RHO( J- 1) *D( J-l I >/DT IL 

COl 7 = C0N7*( COl 5 -CO) 


C5(DX.DX1 >*C( l, J ) 
+ C2( DX. DX 1 ) *C( I.J) 



COUP 

710 

***COUP 

720 


COUP 

730 


COUP 

740 


COUP 

750 


COUP 

760 


COUP 

770 


COUP 

780 


COUP 

790 


COUP 

800 


COUP 

810 


COUP 

820 


COUP 

8 30 

* 

COUP 

840 

IL 

COUP 

850 

+ 

COUP 

860 


COUP 

870 


COUP 

880 


COUP 

890 


COUP 

900 


COUP 

910 


COUP 

920 

+ 

COUP 

930 


COUP 

940 

+ 

COUP 

950 


COUP 

960 


COUP 

970 


COUP 

980 


COUP 

990 


COUP 1000 


COUPIOIO 


COUP 1020 


COUP 1030 


<:oupio4o 


COUP 1050 



coia = coie*cv 

SUB ( J 1 ) = CO 13 
D1A6(J1) = COI 4 + CO 1 5 
SUP4JU - 0* 

B ( J 1 ) * C0N5 + C0N4 + C017 ♦ COlS ♦ C016 

200 0X1 = OX 

CALL SOLVE ( HM ( 1 > .HM < NETA ) 1 

c CHECK FOR CONVERGENCE 

I F 4 I DE R UG • E O * 0 ) GO TO 249 
DO 1532K 1 = 1 »NETA 2 
KK = K !♦ 1 

1532 WRITE! 6,1533) K1 ,E TA < KK ) ,MW ( KK ) ,8 «K 1) 

1533 FORMAT ( 1X*1 10»F15*4 *2E20#6 ) 

249 DO 250 J =2 » NETA 1 

SRCT = <B(J-1I - HM(J))/HM(J) 

PRCT*ABS< SRCT) 

IF < PRCT*GT# TPRCT) GO TO 260 

250 CONTINUE 
GO TO 300 

260 ITER=ITER+1 

00270J=2,NETAl 

SRCT = CB(J-l) - HM(J))/HM(J) 

SAP = HDAMP* SRC T 

IF<ABS(SAP)»GT, TMCH)GO TO 1618 
ZIP a* SAP 
GO TO 1619 

1618 ZIP = TMCH*ABS< SAPl/SAP 

1619 HM<J) s: ( 1 , + ZIP )*HM( J) 

IF < HM( J ) • LT* HM ( 1 ) ) HM C J ) =1*0 001*HM<1 ) 
IF<HM( Jl.GT. 1,0)HM( J) as *9999 
270 CONTINUE 

SOLVE FOR TEMPERATURE ••*• 


C 

C 

C 


DO 8 1 8 J “ 1 »NET A 


COUP 1060 
COUP 1070 
COUP 1080 
COUP 1090 
COUP 11 00 
COUP11 10 
COUP 1120 
COUP 11 30 
COUP 1140 
COUP 11 50 
COUP 1160 
COUP l 170 
COUP 11 80 
COUP 11 90 
COUP 1 200 
COUP 1210 
COUP 1220 
COUP 1230 
COUP 1240 
COUP 1250 
COUP 1260 
COUP 1270 
COUP 1280 
COUP 1290 
COUP 1300 
COUP 1310 
COUP 1320 
COUP 1330 
COUP 1340 
COUP 1350 
COUP 1360 
COUP 1370 
COUP 1380 
COUP 1390 
COUP 1400 
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81 8 RED ( J) = T ( J ) 

D0756J=2.NETA1 
B< J- 1 ) - HMt J) 

ITEB a 0 

751 CALL PROPRT (NSP.J.Jl 

DTT = (B (J-l) - H»(J))/CP(J) 

T ( J ) = T < J ) ♦ DTT 

DTT = DTT/TIJ) 

ITE9 = ITEB + I 

IF ( I TEB# GT * 2 0 ) GO TO 752 

GO TO 754 

752 WRITE! 6.7531 J, DTT 

753 FORM AT ( 1 X » • TEMPERATURE AT THE »*I3.»TH POINT DOES NOT 

X « * CHANGE IN TEMPERATURE^ .E20*6> 

STOP 

754 IF (A3S(DTT)*GT**O10)GO TO 751 
756 CONTINUE 

DO 90 23 J=2 . NE TA I 

SR C T = <T(J) - RED C J ) ) /RED ( J 1 
SAP = TD AMP* SRC T 

IF (A 6S( SAP) .GT. TMCH ) GO TO 9021 
ZIP = SAP 
GO TO 9022 

9021 ZIP = TMCH*ABS< SAP > /SAP 

9022 TtJ) = Cl* F ZIP14REDCJ) 

IFCTC J I.LT.TM > J T < Jl = Till 

9023 IF(T< J )*GT* 1* IT< Jl = 1* 

IF ( I DEBUG* EQ • 0 1 GO TO 8 89 

WRITE! 6. 81 71 < J *RED C J ) ,T(J» .J=l .NET A) 

817 FORMAT! IX, I 5 ,20 X . 2F 2 0* 6 » 


889 IF ( I TE R *GE • MAXE > GOTO 300 
I F ( IAB)891 .891,892 


CONVERGE' , 


COUP 14 10 
COUP 1420 
COUP 1430 
COUP 1440 
COUP 1450 
COUP 1460 
COUP 1470 
COUP 1480 
COUP 1490 
COUP 1500 
COUP 1510 
COUP 1520 
EXCOUP 1530 
COUP 1540 
COUP 1550 
COUP 1560 
COUP 1570 
COUP 1580 
COUP 1590 
COUP 1600 
COUP 1610 
COUP 1620 
COUP 1630 
COUP 1 640 
COUP 1 650 
COUP 1660 
COUP 1670 
COUP 1680 
COUP 1690 
COUP 1700 
COUP 1710 
COUP 1720 
COUP 1730 
COUP 1740 
COUP 1750 



891 CALL SPECIE 
GO TO 110 

892 CALL ELRAT 

CALL CHE ME Q U.NETA) 

GO TO 110 
300 CONTINUE 

IF < I TER»LT • MAXE ) EC0NV=* TRUE* 

00320 J = 2 * NET A1 

TfJ) = T<J» • 35 ♦ < TOLD I J1 - T(J>> 

SRC T = CT(J) - TOLOI JM/TOLOI J» 

C IF (ABS ( SRC T) «GT«TMCH ) T < J| * TOLO(J) 

320 CONTINUE 
RETURN 
END 


COUP 1760 
COUP 1770 
COUP 1780 
COUP 1790 
COUP 1800 
COUP 18 10 
COUP 1820 
'COUP 1 830 
COUP 1840 
COUP 1850 

♦ TMCM*SRCT *TOLD< J )/ABS( SRCT ) COUP I860 

COUP 1870 
COUP 1880 
COUP 1890 
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SUBROUTINE ELRAT 

COMM CN /FRSTRM/ U INF, RTNF, UINF2, R • RE, LXI , ITM, I EM, NETA 
COMMON/PROP1 /PI (60 ,RHQ(60» • T ( 60 > . A MW < 60 > . C (20 * 60 ) • CE< 5, 60 » 
COMMON /MA I M/KEEP,MAXE,MAXM,MAXO,IDEBUG.MCONV,ECONV, DCONV.LT. TAB 
COMMON/IT/AC 

CCMMCN /NUMBER/NSP ,NNS,NE »NC 
COMMON /YL/ETAC601 #YGND(60) 

COMMCN/NETI /NETA1 , NETA 2 

COMMCN/V£CTOR/SUB<601 , 01 AG (60 ) • 5UP( 60 ) ,9(60 I 

COMMON /DEL/ DELTA ,DT I L *DTI LS 

COMMON /VEL/ F < 60 f ,FC < 60 ) *2 <60 > • V(60 ) 

COMMON /DO /D<60» 

C SOLVE ELEMENT CONSERVATION EQUATIONS 

CE(l.NETA) s* l.E-03 

CE(2,NETA> ~ WE-03 

DO 1 1 €K=1 , NE 

DX1 = ETA ( 21 - ETA Cl I 

DOIOC J=2,NETA1 

DX w ETA< J+l ) - E T A ( J I 

J I = J - 1 

SUB(Jl) •= RHO( J»*RHC( J)*D( J ) / C DTI L*DT IL ) 

D I AG ( J 1 ) = ( CC1 <DX,DX1 )*RHO< J+ I )*RHQ(J+1) *D < J+l ) + C2(DX,DX1>* 
XRHO( J) *RNO( J»*D< J) ♦ C3(DX,DX1)*RH0( J-l) *RHO< J-l )*D< J-l )) - 
XDTIL*RHO< J)*V( JM / (DTI L*DTILI 
SUP( J1 > = 0* 

B ( J 1 ) =0* 

106 OX! = OX 

CALL SOLVE <CE(K. I ) ,CE < K , NET A ) ) 

DO 1 1 GJ = 2 »NETA1 
116 CE ( K , J > = B( J-l > 

DO 1 7£3K=1 * 5 
DO 17S3J=2» NE TA1 

1753 IF(CE( K, J),LT»Oi >CE<K,J) = CE(K,J+1) 

IF ( I DE BUG » EQ • 0 ) GO TO II 

WR I TE ( 6 » 1 1 7 1 ( J * (CE ( K • J) ,K*I *5) ♦ J=1 ,NET A) 


ELRA 10 
ELRA 20 
ELRA 30 
ELRA 40 
ELRA 50 
ELR A 60 
ELRA 70 
ELRA 80 
ELR A 90 
ELRA 100 
ELRA 110 
ELRA 120 
ELRA 130 
ELRA 140 
ELRA ISO 
ELRA 160 
ELRA 170 
ELRA 1 80 
ELRA 190 
ELRA 200 
ELRA 210 
ELRA 220 
ELRA 230 
ELRA 240 
ELRA 250 
ELRA 260 
ELRA 270 
ELRA 280 
ELRA 290 
ELRA 300 
ELRA 310 
ELRA 320 
ELRA 330 
ELRA 340 
ELRA 350 


N> 

•P* 



117 FORMAT ( I X • I 5 * 5E20« 71 
1 1 RETURN 
END 


SLR A 
FLR A 
ELRA 


360 

370 

380 




SUBROUTINE 

SPECIE 





SPEC 

10 

c 

— STAGNATION 

LINE SOLUTION OF 

SPECIES 

CONTINUITY 

EQUATION I SPC4 ) 

SPEC 

20 

c 

ORDER OF 

SPECIES 

ISO 




SPEC 

30 

c 

CO 

C 

C2 

C3 

c* 

C2M CN 

SPEC 

40 

c 

1 

2 

3 

4 

5 

6 7 

SPEC 

50 

c 

HCN 

H2 

H 

N2 

N 

N+ O 

SPEC 

60 

c 

3 

9 

10 

11 

12 

13 14 

SPEC 

70 

c 

o+ 

E- 

C2H2 

C3H 

C4H 


SPEC 

" 80 

c 

15 

16 

17 

18 

19 


SPEC 

90 


• SDIFFC60) ,SAI 1<6O).S0(6O > 


COMMCN/COT/A 1 *CS 
COMMGN/N/NP1 .NP2.NP3 
COMMON /KKB/RHO A .TA*VA*YA(19) 

COMMCN/KKM/ALPf 60>»SVA(60> 

COMM CN /FOG /A I f .C*T *B *TOLO 

COMMON/SA VE/SSUBI 60) • SO I AG ( 60 ) * SSUP ( 60 > • SS C 60 ) . E< 60 ) 

DIMENSION I DEN (19) 

C* ****************** ***** 

COMMON /DEL/ DELTA »DT!L .DTILS 

COMM CN /FRSTRM/ U INF, RINF. UINF2. R * RE. LXI, ITM. I EM, NETA 
COMMCN/PROP1/PI < 60 ) .RHOC60 ) , T< 60 ) .BMW (60 > . CM <20 . 60 ) . CE( 5. 60 l 
COMMON /RH/ DUD »OPHI •TD.RZB* PD • HD , HTCT AL 
COMMON /YL/XXX< 60 » ,Y0ND<60 ) 

C XXX IS ETA IN MAIN 

COMMON /MAIM/KEEP. MAXE »M AXM , MA XD, IDEBUG.MCONV .ECCNV. DCONV.LT. I AB 
COMMCN /VECTOR/ CA ( 60) ,CB(60 ) .CC <60 ) .ALT <60 > 

COMMON /VEL/ F (60 ) »FC (601 »Z(60) * V <60 I 
COMMCN /NON/RDZ *MUDZ *RMD Z* AKNF • HNF , CFNF 
COMMON/NUMBER/NSP.NNS.NE ,NC 
COMMON /CK/ I SN( 20) . M*T( 19) 

C* *********************** 
REAL MWT 

DIMENSION Y(20.60) 

COMMON /SI S/S Y( 20.60) 

EQUIVALENCE (CM(X).Y(l)) 

DIMENSION ET A( 60 ) 


SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 


100 

110 

120 

130 

1 AO 
ISO 
160 
170 
180 
190 
200 
210 
220 

2 30 
240 

2 50 
260 
270 
2 80 
290 
300 
310 
320 

3 30 
340 
350 
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EQUIVALENCE < NETA • NP ) * CPD.PRE) * < YCND< l ) *ETA ( 1 >1 
DIMENSION SUBf 60) .01 AG <60 > • SUP < 60 ) 

EQUIVALENCE <CA < I ) ,SUB < l > I . ( CB < 1 ) • C I AG < 1 ) ) • < CC< 1 ) • SUP< l ) ) 

DATA NS.SYMCH. SPER/1 9**50** 80/ 

LOGICAL MCONV.ECONV.DCCNV 
C RDZ = DENSITY AT SHOCK < SLUGS OF M/FT**3» 

RHOD = R0Z*32*1?4 

C RHOD = DENSITY AT SHOCK (LBM OF M/FT**3> 

IS IF I 3=0 
TOL2 = #02 

TOL1 = O* 2 SO 00 0*TOL2 
T0L3 = 2* *T0L2 
TOLA = 4* * T0L2 
NID = 2 
N I T= I 
I T =0 
TOLD = 0« 

NP = TOTAL NUMBER OF PROFILE POINTS 
PRE =STA TIC PRESSURE < LBF/FT 2 ) 

NP 1 =NP - 1 
NP2=NP - 2 
NP3=NP - 3 
C * ** ** * * * 0 I MENS IQNAL 1 ZE 
D05Q 1=1 .NP 

RHO( I ) = RH0(I)*RH0D 
T( I ) = T( I )* TO 
50 V< I > = V( I )*UI NF 
C ETA =Y <F T ) 

C RHO = DENSITY CLBM/FT3) 

C T =TEMPERATURE PROFILE(OK) 

C V =VELOCITY PROF I LE < FT/S EC ) 

C NS=NO* OF SPECIES 

C MV#T=MOLECULAR WEIGHTS 

C Y = MASS FRACTIONS 

DO 1 1 1 I =1 » N SP 


SPEC 

360 

SPEC 

370 

SPEC 

380 

SPEC 

390 

SPEC 

400 

SPEC 

410 

SPEC 

420 

SPEC 

430 

SPEC 

440 

SPEC 

4S0 

SPEC 

460 

SPEC 

470 

SPEC 

480 

SPFC 

490 

SPEC 

500 

SPEC 

510 

SPEC 

520 

SPEC 

530 

SPEC 

540 

SPEC 

550 

SPEC 

560 

SPEC 

570 

SPEC 

580 

SPEC 

590 

SPEC 

600 

SPEC 

6 10 

SPEC 

620 

SPEC 

630 

SPEC 

640 

SPEC 

650 

SPEC 

660 

SPEC 

670 

SPEC 

680 

SPEC 

690 

SPEC 

700 
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D01 11J=1 iNP 

11 1 SY < I » J ) = Yd.Jl 
D0112I sl« NSP 
OO 1 I 2 J =1 * NP 

112 Y(I.J> = SY ( I SN( 1 ) * J ) 

C CALL OUPPUT (II 

DO 10 01 =1 , NS 
DO 10 0 J = 1 * NP 

100 Y < I * J I = Y(I ,JI/MWT< I I 
C Y = MOLES OF 1/MASS OF MIXTURE 

DO 1971 J = 1 .NP 
DO 1971 K=1 • NS 
1971 SY ( K . J I =Y ( K . J ) 

c P ATM sPRES SURE IN ATMOSPHERES 

AC = 8 • 1 28E-O0 
ac=ac/pre 

c CALCULATE DIFFUSION COEFF I C l ENT < O IFF 1 

DO 170J=1 .NP 

17C SD IFF ( J ) * AC*< T( J 1**1 .659) 

C D IFF = (F T2/SEC) 

C*** ***** COMPUTE PART OF THE ELEMENTS OF THE TRIO MAT Rix ******** 
DX1=ETA ( 21-ETA ( 1) 

001530 J=2,NP1 
DX=ETA (J4-1I-ETA (J) 

SVA(J)= -V(J> + (Cl (DX.DXl >*RHG< J+l »*SDIFF( J41 ) + C2CDX.OX1 
XJI*SDIFF(J) ♦ C3(DX.DX1)*RHC( J-1)*SCIFF< J-l ) )/RHO( J) 

A =S0IFF(J)*C6(DX,0X1)+SVA(J)*C3<DX,DX11 

G =SD IFF (J>*C5< DX.DXl I ♦ SV A ( J > *C2 (OX .OX 1) 

C = SD IFF ( J)*C4(DX . D X 1 ) + SV A ( J » *C 1 ( DX . DX 1 » 

IF( J.EO.2) A1=A 
IF ( J »FQ. NP 1 ) CS = C 
IF( J.EQ.NP1 1G0 TO 1520 
SSUP ( J-t >=C 
1520 SOIAG( J-l >=G 

IF ( J .E Q. 2 ) GO TO 1530 
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SPEC 890 
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SStlB < J— 2 ) =A 
1530 DX1=DX 
C* ** ***** 

DO 3 2 11=1 .NS 
321 IDEN ( I >=0 

C ********** OVERALL ITERATION LOOP ********** 

120 IT = IT+1 

YMCH=SYMCH 

PER=SPER 

IF ( I T*LT* 21) GO TO 1181 
1175 YMCH=10* 

1181 CONTINUE 

c ********** SPECIES iteration loop ********** 

DO 20 01 = 1 . NS 

IF ( I DEN( I ) »GE* A) GO TO 2C0 
IDENt I ) =4 
DO 1 27J =2 « NP1 
AMW=0* 

DO 126K=1 .NS 

126 AMW=AMW+Y< K. J) 

AMW=1* /A MW 

127 RHO( J > =• 7608*PRE *AMW/TCJ) 

C ********** COMPOTE REACTION RATE ********** 

00550J=2.NP1 
JJ s J - 1 
DO 530L = 1 .NS 
530 YA(L)=Y(L.J> 

CALL FG2 < YA ,RHO( J) »T< J) ,1 ) 

SAIKJJI = All *DE LTA 
550 SB(JJ) = B*DELTA 
3923 CONTINUE 
C******** 

c ******** COMPUTE ELEMENTS OF TRIG# MATRIX AND SOLVE ********* 
DO 10 10 J=1.NP2 
JJ=J+1 
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OIAGI J)=SDIAG< Jl+SAII < J> 

IF< J.EQ.NP21G0 TO IOIO 
SUB{ J)=SSUB{ J) 

SUP( J)sSSUP( J) 

1010 ALT(J) = SA1 I< J)*Y{I . J J1 - SBCJ) 
AL T ( 1 ) =ALT ( 1) - A1AYCI, I) 

A1_T( NP2),=ALT<NP2> - CS*Y<1* NP > 
CAUL TRID INP2I 
001080 J=2.NP1 
1080 ALPI J1=ALT< J-X > 

C* ******* 

IF ( 1 T «NE* 1 )G0 TO 2694 
IF< I.NE# 13IG0 TO 2691 
00 2690 J J =2 »NP1 

2690 Y( 13 .J J| =ALP( JJ) 

2691 IF ( I #NE • 15JG0 TO 2694 
DO 2692 JJ =2 « NP1 

2692 Yt 15.JJ)=ALP< JJ» 

2694 CONTINUE 

128 001 30J=2,NPl 

ABO=<ALP( J)-Y(I,J))/Y( I*J> 

AR=4BS< ABO 1 

IF(ARS<Y(I,J)1,LT. 1.E-C4* AND. ABSI 
IF< IDENI I ) *LT. 4)GG TO 6010 
IF(AB*GT.T0L1) IDEM I 1=3 
6010 IF( IDENI IULT.31G0 TO 6020 
IF < AS* GT # TOL 2)1 OE N ( 1 1 =2 
6020 IFIIDENI I > .LT.21GO TO 6030 
IFIAB.GT.TOL3J I DENI I 1 = 1 
6030 IF ( IDENI I 1 *L T. 1 >GO TO 6040 
IF { AB»GT« TOL 4 1 I OE Nil >=0 
6040 CONTINUE 
1344 CONTINUE 

SAP=PER*ABD 

IF ( ABS ( SAP ) » GT« YMCH1GO TO 1618 
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Z I Ps* SAP 
GO TO 1619 

1616 ZIP=YMCH*ABS( SAP) /SAP 
1619 CONTINUE 

Y< I. J1=<1.+ZIP»*Y<I. J) 

130 CONTINUE 
200 CONTINUE 

IF( IT«LT.NIT)GO TO 374 
I F < I DE BUG • E Q • 0 ) GO TO 823 
WR 1TE< 6* 1 463 M l.!OEN(I)«Isl.NSI 
1463 FORMAT <6< 4X» I3,2X.»=*.I5.4X>) 

823 DO 37 3 1 =1 .NS 

373 I DENI I 1—0 

374 CONTINUE 

C IF{ I T.NE.NID )GQ TO 376 

DO 3 7 S I =1 »NS 

IF! IDEM I >*LT*3»G0 TO 376 
37 E CONTINUE 
GO TO 210 

376 IF< IT.LT.NIT )GO TO 3334 
NIT=NI T+5 
N ID=NI T-4 

I F ( IDE BUG # ECU 0 )GQ TO 3334 
WR I TF (6*218) IT.YMCH 

218 FQRMATI//1QX.* ITERATION NUMBER *.110* 5X * • YMCH* *F 15*6/ / I 
C CALL OUTPUT (2) 

3334 CONTINUE 
GO TO 120 
210 D0193J=1,NP 
AMW - 0. 

DO 19 £1 = 1 » NSP 

192 AMW = AMW + Y(I.J) 

193 BMW< J) = 1 ./AMW 
DO 1911 = 1. NS 

DO 191 J=1 .NP 
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191 Y( I • J > = Y( I * J) *MWT ( I ) 
C CALL OUPPUT fl> 

C* *4 44444 N0N-DIMENSI0NALI7E 
D051 1=1 ,NP 

RHOCI) = RHOUl/RHOD 
T( I ) = T( I »/TD 
51 VC I ) = V(I )/UINF 
DO 1 141 =1 .NSP 
DO 11 4 J — 1 *NP 

114 SYC I iJ) = VC I, J) 

DO 1 1 SI =1 .NSP 

DO 1 1 5 J = 1 * NP 

115 Y(ISNCI).J) a SY(I.J) 
RETURN 

END 
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c 

c 

c 

c 

c 

c 

c 


SUBROUTINE SOLVE (Z0*Z1> 

THIS SUBROUTINE SOLVES THE DIFFERENTIAL EQUATION 

A(X)Z" + B < X } Z • ♦ CIXIZ = 0<XI 
WITH BOUNDARY CONDITIONS Z(O> = Z0. AND ZI1)=Z1* THE NUMERICAL 
INTEGRATION IS PERFORMED WITH NETA POINTS IN THE DOMAIN OF 
INTEREST. THE VARIABLE COEFFICIENTS A, 8, C, AND D MUST BE 
EVALUATED AT NETA2=NETA~2 INTERIOR POINTS AND STORED IN SUB* 
DIAG. SUP* AND B* RESPECTIVELY. .THE SOLUTION IS RETURNED IN B* 
COMMON /NE TI /NETA1 ,NETA2 

COMMON /VEC TOR/SUBt 60 ) , D I AG 1 60 > * SUP( 60 ) ,B(60 ) 

COMMON /YL/ETAI 60 > *Y0ND(60) 

0X1 = ETA ( 2> - ETA<1 > 

0040 J=2*NE TAI 
OX = ETACJ+l) - ETAIJI 
J1 = J - 1 
J2 = J - 2 

CA = SU8( J 1 )*C6<DX.DX1> ♦ D I AG C J1 > *C1 < OX , DX 1) 

CB = SU9 (J! )*C5(OX»DXl ) + D I AG < J1 >*C2 ( OX , DX 1 ) ♦ SUP(Jl) 

CC = SUB< J l )*C4(DX.DX1 ) + D I AG l J 1 ) *C1 ( OX • DX 1 > 

D I AG ( J 1 ) = CB 
SUP( Jl) = CC 
I F ( J 1 *EQ. 1 >G0 TO 20 
SUB ( J2 ) = CA 
GO TO 40 
20 BC a CA 
40 0X1 = DX 

3( 1) = Bf 1) - BC*ZO 

B( NETA 2 ) = B ( NE T A 2 ) - SUP < NETA2 ) *ZI 
CALL TRID < NET A 2 ) 

RETURN 

END 


SOL V 10 
SOL V 20 
SOL V 30 
SOL V 40 
SOL V 50 
SOL V 60 
SOL V 70 
SOL V 80 
SOL V 90 
SOL V 100 
SOL V 110 
SOL V 120 
SOL V 130 
SOL V 140 
SOL V 150 
SOL V 160 
SOL V 170 
SOL V 180 
SOL V 190 
SOL V 200 
SOL V 210 
SOL V 220' 
SOL V 230 - 
SOL V 240 
SOL V 250 
SOL V 260 
SOL V 270 
SOL V 280 
SOL V 290 
SOL V 300 
SOL V 310 
SOL V 320 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* * 


SUBROUTINE CHEMEQC NI.NFI 
************* 


******************* 


THIS SUBPROGRAM IS A REVISION OF A PROGRAM ORIGINALLY REPORTED 
IN NASA— TN—D— 5391 < AUGLST 19691 • THE PROGRAM COMPUTES FOR A 

PRESSURE ARR AY , PP CM * TEMPER AT URE ARRAY, TTCNl, AND AN ARRAY 
OF ELEMENTAL MASS FRACTIQNS-CCC I . N) , THE EQUILIBRIUM SPECIES 


MASS FRACTIONS AT EACH PCINT-N REPRESENTED 
THE EQUILIBRIUM COMPOSITIONS ARE STORED IN 

DONALD O* 
LOUISIANA 
AUGUST 7, 


BY THE GIVEN ARRAYS* 
THE MATRIX CE(I,N1* 


ESCH 

STATE 

1970 


UNIVERS ITY 


******* 


*********** **************** 

IN * INITIAL POINT FOR EQUILIBRIUM CALCULATIONS* 

NF = FINAL POINT* 

C********************************** 

CO MM CN/ WALL/R V V, , PR* * T WOLD »FLUX ( 20 1 « CWALLC 20 1 » ECWALLC 5 1 
COMMCN /SP 1 /SS , TOL *NDBLG 

C0MM0N/EQ1/A I< 20) , BI<20>, CI(20), D I( 20 1 * EM20I, F I ( 20 ) , GIC201 
X A I I < 20 ) *BI 1(20) ,CII { 20 1 » DI 1(20 1,EII(20)»FI I < 20 ) , G I 1 ( 20 1 

C0MMCN/EQ2/AAC20.S1 « ICODE { 20 1 
COMMON/THERM 1/C<20) ,F0RT<20) 

COMMON / 10 /SP <201* EL ( 5 ) 

CO MM ON /NUMBER/ NS ,NNS,MM,NC 
C0MM0N/WT/XM1M 201 ,AWT (51 

COMMON /RH/ DUD.OPHI ,TD»RZB,PD,HD.HTCTAL 
COMMON /DY/ DYDT 120 ,60 1 1 

CO MM ON /PRO PI /PP( 60 ) .ROC601 ,TT(60 1 , AMWC60 1 ,CE( 20 ,60 1 . CC< 5, 60 1 
DIMENSION R< 7, 7!,B( 7 , 1 1 , YI NT ( 20 1 . FY ( 20 1 , PI (7 1 , FSUMC 20 1 , YSUMC 20 
1 t X( 20 > .DELTC20) . XLAM20) 

DIMENSION ECS), BB (51 • Y f 2 0 1 
DIMENSION E0LDC51 


CHEM 

10 

CHEM 

20 

CHEM 

30 

CHEM 

40 

CHEM 

SO 

CHEM 

60 

CHEM 

70 

CHEM 

80 

CHEM 

90 

CHEM 

100 

CHEM 

110 

CHEM 

120 

CHEM 

130 

CHEM 

140 

CHEM 

150 

CHEM 

160 

CHEM 

170 

CHEM 

180 

CHEM 

190 

CHEM 

200 

CHEM 

210 

, CHEM 

220 

CHEM 

230 

CHEM 

240 

CHEM 

250 

CHEM 

260 

CHEM 

270 

CHEM 

280 

CHFM 

290 

CHEM 

300 

CHEM 

310 

1CHEM 

320 

CHEM 

330 

CHEM 

340 

CHEM 

350 


to 

to 



n n n 


S CONTINUE 

c 

MA = 1 

INITIAL GUESS FOR EQUILIBRIUM CALCULAT I ONS* * * * 

00101=1. NS 

10 Y( I ) = C WALL 1 1 ) *AMV»< NI )/XMW( I ) 

C 

C COMPUTE THE SIZE OF THE MATRIX 

C 

NA=MM+ 1 

c 

C NS=NUM8ER OF SPECIES**** 

C 

C CR I T =C R I TER I A FCR CCN MERGENCE* 

C 

CRIT = TOL 
XBETA=CRI T 
BETA =0* 

LL=NS+ 1 
TOLD = 0* 0 
C 

C THE REMAINDER OF THE PROGRAM COMPUTES EQUILIBRIUM COMPOSITIONS 

C CORRESPONDING TO THE ELEMENTAL MASS FRACTIONS IN THE CC-ARRAY 

C FROM POINT N = NI TO POINT N = NF* 

C 

SUM = 0* 

001511 1=1, MM 
1511 SUM = SUM + ccn.il 
002011 1=1, MM 

2011 EOLO(I) = CC(I,n/SUM 
00 50 OON=N I ,NF 
T = TT { N > * TO 
■p=PP (N » 
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360 

CHEM 

370 

CHEM 

380 

CHEM 

390 

CHEM 

400 

CHEM 

410 

CHEM 

4 20 

CHEM 

430 

CHEM 

440 

CHEM 

450 

CHEM 

460 

CHEM 

470 

CHEM 

480 

CHEM 

490 

CHEM 

500 

CHEM 

510 

CHEM 

520 

CHEM 

530 

CHEM 

540 

CHEM 

550 

CHEM 

560 

CHEM 

5^0 

CHEM 

5 80 

CHEM 

590 

CHEM 

600 

CHEM 

610 

CHEM 

620 

CHEM 

630 

CHEM 

640 

CHEM 

650 

CHEM 

660 

CHEM 

670 

CHEM 

680 

CHEM 

690 

CHEM 

700 
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BETOLD=0#0 


CHEM 

T10 


SUM=0« 0 


CHEM 

720 


DO 151=1 *MM 


CHEM 

730 

IS 

SUM=SUM + CCCI *N> 


CHEM 

740 


DO 20 1=1, MM 


CHEM 

750 


IF < CC ( I *N) tLT« 1« OE — 10)CC<I*NI=1 .OE-tO 


CHEM 

760 

20 

E < I >=CC( I, N) /SUM 


CHEM 

770 

C 



CHEM 

780 


CALL ALTERY(E .GOLD, Y.TOLD1 


CHEM 

790 

c 



CHEM 

800 


TINCR=ABS( T- TOLO) 


CHEM 

810 


tF ( T INCR.LE..OI 1GDT01750 


CHEM 

820 

22 

NT = 1 


CHEM 

830 


DO 25 J = 1 » MM 


CHFM 

840 


BBt J > = 3.0 


CHEM 

850 


DO 25 1=1. NS 


CHEM 

860 

25 

BB ( J »=BB( J ) + AA( I ♦ J) * Y ( I ) 


CHEM 

870 

C 



CHEM 

880 


CALL THERMO! T.P) 


CHEM 

890 

C 



CHEM 

900 

C — 

THERMO SUBPROGRAM CALCULATES F/RT FOR EACH 

COMPONENT • • • • • 

CHEM 

910 

c 



CHEM 

920 

c 



CHEM 

930 

c 

SET-UP THE R-MATRIX AND THE B-VECTOR.*.. 


CHEM 

940 

c 



CHEM 

950 

40 

YBAR=0. 


CHEM 

960 


D050 1 = 1 » NS 


CHEM 

970 

50 

YSAR=YBAR+Y( I » 


CHEM 

980 

c 



CHEM 

990 

c 

YBAR IS THE TOTAL NUMBER OF MOLES OF GAS SPECIES 

CHEM 1 

0 00 

c 



CHEM 10 10 

c 



CHEM 10 20 

c 

CALCULATE THE FREE ENERGY PARAMETER OF THE 

GAS SPECIES 

C HEM 1030 

c 



C HEM 1040 


D060 1=1 .NS 


CHEM 1050 
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FAC=Y( I l/YBAR 

IF(FACeLT« 1* E-73 ) F AC=1 • E-73 
60 FYC I 1=YCI >*(C< I >+ ALOGCFAC* I 

C 

C PROCEED TO CONSTRUCT THE R MATRIX 

C 

C- INITIALIZE TO ZERO* •• • 

C 

0075 J=1 * NA 
DO 75K= 1 # NA 
75 R(J,K)=0*0 

C 

DO 90 J = 1 • MM 
DO90K=J,MM 
SUM=0. 

D080 1= 1 » NS 

80 SUM=SUM+AA (I ,J>*AA(I *K)*Y< I ) 

R< J.K » =SUM 
90 R(K,J»=SUM 

C 

DO I C3 K=1 ,MM 
SUM=0* 

DO 101 I =1 ,NS 
10 1 SUM = SUM-f AA (I«Kl*Y(I) 

R( K.NA )=SUM 
R( NA *K 1 = SUM 
103 CONTINUE 

.-PROCEED TO CALCULATE THE VECTOR B* 

DO 140J=1 .MM 

sum=c* 

DO 1301 »NS 

130 SUM = SUM4-AA ( I * J) *FY( I 1 
140 B( J, 1 ) =SUM+B9< Jl 


C HEM 1060 
C HEM 1070 
C HEM 1080 
C HEM 1090 
CHEM1 100 
C HEM 11 10 
CHEM 1120 
CHEM 1130 
C HEM 1 140 
CHEM 11 50 
CHEM 1 1 60 
CHEM1 170 
CHEM 11 80 
CHEM 11 90 
C HEM 1200 
CHEM 1210 
CHEM 1220 
CHEM 1230 
CHEM 1240 
CHEM 12 50 
CHEM 1260 
CHEM 1270 
CHEM 1200 
C HEM 1290 
C HEM 1 300 
CHEM 13 10 
CHEM 1320 
CHEM 1330 
CHEM 1340 
CHEM 1350 
CHEM 1360 
CHEM 1370 
CHEM 1380 
CHEM 1390 
CHEM 1400 
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non 


c 


150 


C 

C 

c 

c 

C 

C 


156 

C 


c 

c 

c 

160 


SUM=0* 

DO 1501 =1 *NS 
SUM=SUM+FY(I ) 

B( NA, 1 )=SUM 

MATRIX INVERSION IS C At. LED TO PROVIDE THE SQLUTICN FOR 
THE LINEARIZED EQUATIONS* THE SOLUTION OF THE EQUATIONS 
GIVES THE LAGRANGIAN MULTIPLIERS NEEDED TO COMPUTE THE MOLES 
OF EACH GAS SPECIES* 

CALL MATINVI R* NA , B . MA . NMAX » 

CONTINUE 

DO 1601 = 1 * N A 

PI < I >=LAGRANGI NA MULTIPLIERS 

PI ( I )=8(I . 1 > 

U=PI (NA 1 
XBAR=U* YBAR 


COMPUTE THE MOLFS CF EACH SPECIE***. 

DO 1701 = 1 ,NS 
170 F SUM ( I )=-FY( I ) HY( I ) /YBARl *XBAR 
DO 2001 =1 *NS 
PSUM=0. 

DO 1 80 J-l .MM 

180 PSUM=PSUM+PI < J)*AA(! . J) 

YSUM ( I >=PSUM*Y( I ) 

200 X < I > =F SUM ( I ) + YSUM ( I 1 
C 

C CHECK IF CONVERGENCE CRITERIA HAS BEEN MET* IF SO. GO TO 800 


CHEM 1410 
C HEM 1420 
CHEM 1430 
CHEM 1440 
C HEM 1450 
CHEM 1460 
CHEM 1470 
CHEM 1400 
CHEM 1440 
CHEM 1500 
CHEM 151 0 
C HEM 1520 
CHEM 1530 
CHEM 1540 
CHEM 1550 
CHEM l 560 
CHEM 1570 
CHEM1580 
CHEM 1590 
CHFM1600 
CHEM 16 1 0 
CHEM 1620 
CHEM 1630 
C HEM 1640 
C HEM 1650 
CHEM 1660 
CHEM 1670 
C HEM 1680 
CHEM 1690 
CHEM 1700 
C HEM 17 10 
CHEM 1720 
CHEM 1730 
CHEM 1740 
CHEM 1750 



n n 


BETA -0. 0 
DO 2151 =1 .NS 
DELTC I > = X< I )~Yf I I 

215 BETA =0ETA+A8SCOELT< I) > 

IFCBETA.GT .B ETOLD > GOT 02 1 6 
IE (BETA.LT, XBETA) GCTC800 

216 CONTINUE 

COMPUTE THE CONVERGENCE PAR AMEN TER XLAMBD 

C 

XLAMBD=I. 

DO 210 1 = 1. NS 

IF< A BSC DELTC I ) ).LT. l.0E-20)0ELT ( I )=0.0 
IF < DELTC I ) • GE* 0. > G0TO210 
IF C X ( I I.GT.O. >G0T02l 0 
XL AM { I ) =—Y < I > /DELTC I ) 

XLAMBD = AMIN1 < XLAMBD » XLAW t I ) ) 

XL AMBO = • 99*XLAMBD 
210 CONTINUE 

XL AM 1 = XLAMBD 

IF < XLAM1.EQ. O. > XL AMI =1 .OE-5 

debar=o. 

DO 2201 =1 » N S 

220 DEBAR=DEBAR+DELTC I > 

C 

C DETERMINE THE SIZE OF THE UNIT VECTOR XLAMBD. 

C APPLY THE CORRECTIONS TO OBTAIN A NEW SET OF ESTIMATES FOR THE 

C NEXT ITERATION. WHEN THE VALUE OF XLAMBD IS VERY SMALL SET THE 

C VALUES OF YCI) EQUAL TO XCI) TO AVOID USING THE SAME VALUES OF 

C YCI) AS WAS USED IN THE FRFVIOUS ITERATION 

C 
C 

C DETERMINE THE FREE ENERGY GRADIENT. IF POSITIVE REDUCE XL AM BOA 

C DFDL =FREE ENERGY GRADIENT 

C 


C HEM 1760 
CHEM 1770 
CHEM 1780 
CHEM 1790 
CHEM 1B00 
CHEM 1810 
CHEM 1820 
CHEM 1830 
CHEM 1340 
CHEM 1850 
CHEM l 860 
CHEM 1870 
CHEM 1880 
CHEM 1890 
CHEM 1900 
CHEM 19 1 C 
CHEM 1920 
CHEM 1930 
CHEM 1940 
C HEM 1950 
CHEM 1960 
CHEM 1970 
CHEM 1980 
C HEM 1990 
CHEM 20 00 
CHEM 20 10 
CHEM 20 20 
CHEM 20 30 
CHEM 20 40 
CHEM 20 50 
CHFM20 60 
CHEM 20 TO 
CHFM2080 
CHEM 20 90 
C HEM 2 1 00 



230 

DFDL=0. 

C HEM 21 10 

C260 

DO 28 01 =1 .NS 

FAC=s(Y< I >+XLAMBD*DELT< I > >✓( VB AR + XLA WBD+OEB AR> 

IF <F AC .LT. l.E-73)FAC = l*E-73 

DERP = ( DELT ( I )* YBAR-DEB AR*Y < I ) > / < YB Afi+XL AM8D*DEB AR > 

CHEM2120 
C HEM 21 30 
CHEM2140 
CHEM2150 

C280 

DFDL=OFDL«-DELTtI )*(C(I l+ALOGIFAO ) * DERP 

CHEM2160 

2 80 

DFOL =DFDL+DELT( )+ALCG<FAC) ) 

CHEM2170 

C 

c 

IF (DFDL.LT • 0 *000) G0TO3O0 
XL AMBD =• 8*XL AMBD 
IF(XLAMBD.GT. U 0E-08) G0T023 0 

-THE VALUE OF XLAMBO THAT ASSURES CONVERGENCE HAS BEEN FOUND 

C HEM 2 180 
C HEM 2 190 
CHEM2200 
CHFM2210 
CHEM2220 

c 

h 

CHFM2230 

300 

DO350I =1 .NS 

C HEM 2240 

c 

IF < XLAMRO.GT. 1* E-6 1GOTO330 

IF { OFOL *LT • 0 ■ ) GQT033Q 

IF < XLAM1.LT. 1#E— 6 ) XL AM 1 = 1# E—6 

-CALCUALTE THE NEW COMPOSITION FOR THE NEXT ITERATION 

CHEM2250 
CHEM 2260 
C HEM 2270 
CHEM2280 
CHEM2290 

c 

330 

Y< I ) = Y< I )+ XL AMI *DELT< ! >*.l 
GOTO 343 

YC I » =Y{ I )♦ XLAMBO*OELT< l ) 

CHEM 2300 
CHEM2310 
CHEM 2320 
C HEM 2330 

340 

IF I Y ( I ).LT.0.IY(I )=l»F-73 

CHEM2340 

350 

CONTINUE 

CHEM 2350 

C 

532 

NT =N T+ 1 

CHEM2360 

CHEM2370 

C 

BE TOLD =BET A 
TOLD =T 

-IF THE NUMBER OF ITERATIONS EXCEED 900 STOP COMPUTATIONS 

CHEM23 80 
CHEM2390 
CHEM2400 
CHEM2410 

c 

800 

IF (NT. GT* 900 IGOT06000 

GO TO 40 

CONTINUE 

CHEM 24 20 
CHEM 24 30 
CHEM 2440 
CHEM2450 




c 

c CONVERT YII) TO MOLE FRACTI ONS. . ... 

C 

C CONVERT EQUILIBRIUM MOLE FRACTIONS TC MASS FRACTIONS AND STORE 

C THESE VALUES IN THE CE-MATRIX. AMWlN) IS THE AVERAGE MOLECULAR 

C WEIGHT AT THE POINT. N. 

C 

sumy=o . a 
DO 90 0^1 = 1 .NS 
900 SUMY=SUMY+Y{ I ) 

AMWlN) = 0.0 
D01000I=1.NS 
Y{ I )=Yt I ) /'SUMY 

, 1000 AMW(N) = AMW(N) + Y<I)*XMWII) 

00 10051 = 1 » NS 

1005 CEd.NI = Yl I ) *XMW| I > /AMW IN) 

GOTO 1800 
C 

C IF THE TEMPERATURE CHANGE IS LESS THAN 50 DEGREES FROM LAST 

C F. E. M. CALCULATION ASSUME CURRENT VALUES AS EQUAL TO LAST 

C VALUES..*) 

C 

1750 D01760I=1.NS 
1760 CE < I *N ) =CE I I »N- 1 1 
AM WIN) =AMW|N-1 > 

1800 CONTINUE 
C 

C OPTIONAL OUTPUT OF POSITION » TEMPERATURE AND EQUILIBRIUM 

C COMPOSITIONS. 

C 

IFINDBUG.LT. 1 I GOT 0300 0 
PRINT 2000. P.T .NT 


C HEM 24 60 
C HEM 24 70 
C HEM 24 80 
CHEM2490 
CHEM2500 
CHEM2510 
CHEM2520 
C HEM 25 30 
CHEM2540 
C HEM 2550 
C HEM 2560 
C HEM 2570 
C HEM 2580 
C HEM 2590 
C HEM 2600 
CHEM2610 
C HEM 2620 
C HEM 2630 
CHEM2640 
CHEM2650 
C HEM 2660 
C HEM 2670 
C HEM 2680 
CHEM269C 
CHEM2700 
C HEM 271 0 
CHEM2720 
CHEM 2730 
C HEM 2740 
CHEM 2750 
CHEM 2760 
CHEM2770 


2000 FORM AT I // * • P = *,F5.3.« T I OK ) = • , F6. 0 . 5 X » ■ NU M8ER OF ITERATIONS CHEM2780 


X = * .I3./.11X. • Y C I ) ».12X.*CII » N I * » / ) CHEM 2790 

PRINT 2005,<SPII> *Y(I) .CE ( I . N > . I = 1 , NS > CHEM2800 
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200 5 

FORM AT (IX, A4,2E1B*8> 

C HEM 28 10 
CHEM2820 

300 0 

CONTINUE 

C HEM 28 30 

330 0 

XBETA=CRIT 

CHEM2840 

SOOO 

CONTINUE 

CHEM2850 

800C 

CONTINUE 

CHEM2860 


RETURN 

CHEM2870 

6000 

PR INT6001 

C HEM 2880 

600 1 

FORMAT ( • NUMBER OF ITERATIONS EXCEEDED 900, 

PROGRAM TERMINATING* 1CHEM2890 


RE TURN 

C HEM 2900 


END 

CHEM2910 




SUBROUTINE ALTERY < E * EOLD * Y*T01_O 1 

ALTE 

10 


COMMON/WT/SMW< 20) *AWT(S) 

ALTE 

20 


COMMON /NUM8ER/NSP • NNS * NE »NC 

ALTE 

30 


C0MMCN/EQ2/AA{ 2 0.5) .IC0DEC20) 

ALTE 

40 


COMMON/EL SP/LSPI 5) 

ALTE 

50 


COMMON /SP1/SS .TOL.NOBUG 

ALTE 

60 


DIMENSION E ( 5 ) » Y< 20 ) .B< 5) .EOLD< 5 I 

ALTE 

70 

c 


ALTE 

80 


IF < NDBUG. GT. 1 >PR1 NT1 01 

ALTE 

00 

101 

FORMAT! • INITIAL GUESS ON MOLE FRACTIONS UPDATED* > 

ALTE 

100 

c 


ALTE 

no 

c 

— ASSUME ALL SPECIES HAVE THE SAME CO MPOS IT I ON. •• • • • 

ALTE 

120 

c 


ALTE 

130 

c 


ALTE 

140 

c 

COMPUTE GRAM-ATOMS OF EACH ELEMENT FROM KNOWN ELEMENTAL CPMPOS 

ALTE 

150 

c 

DISTRIBUTION AND THE MAXIMUM POSSIBLE MOLECULAR WE IGHT 

ALTE 

160 

c 


ALTE 

170 


D029j=l ,NE 

ALTE 

180 


IF { E ( J >*GT. 1.0E-8)GOTQ20 

ALTE 

190 


DO 151=1 *NSP 

ALTE 

200 


IF ( AA ( f.JI.LE. 0* 0 ) GOTO 1 5 

ALTE 

210 


Y< I ) = t • OE— 1 2 

ALTE 

220 

IS 

CONTINUE 

ALTE 

230 

20 

E( J)=E( J>* 100* /AWT ( J) 

ALTE 

240 

c 


ALTE 

250 

£«»«■»«< 

—CALCULATE FOR EACH ELEMENT. THE NUMBER OF G-ATOMS BASED ON THE 

ALTE 

260 

c 

FIRST GUESS. ADJUST THE COMPOSITION OF EACH ELEMENT -SPEC I E AS 

ALTE 

270 

c 

REQU IRED. • a • • • 

ALTE 

280 

c 


ALTE 

290 


DO 30 J= 1 , NE 

ALTE 

300 


B ( J ) -0 • 0 

ALTE 

310 


DO 30 1 = 1 ,NSP 

ALTE 

320 

30 

B( J)=8(JHAA(I# J)*Y(I| 

ALTE 

330 


DO AO J= 1 .NE 

ALTE 

340 


EOLD(J) = E < J) 

ALTE 

350 
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40 


Y(LSP( J) )=Y(LSP(J) I + 

TOLD =0.0 

RETURN 

END 


ALTE 360 
ALTE 370 
ALTE 380 
ALTE 390 


N> 

U> 



u u 


SUBROUTINE 


THERMO (T *P 1 

THER 

10 


THER 

20 


THER 

30 
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u u u 


c 

c 

c 


'-SUBROUTINE THERMO CALCULATES THE FREE ENERGY FUNCTION FOR EACH 
CHEMICAL SPECIE. 


C 

C 

c- 

c 

c 

c 


COMMCN/NUMSER/NQ ,NNS.NE,NC 

COMMON/EQ1 /A I ( 20) , BIC20). CI(20), DM20), El 
X AI I ( 20) ,BI M 20) ,CI I ( 20 ) ,01 I< 20 > ,EI I 

COMMCN/EQ2/AAC 2 0,5) ,ICODE{20) 

COMMON/THERM 1/C ( 20 ) , FORT ( 20 ) 

T= TEMPERATURE IN OK 

T 1 =T 
T2=T1*T 
T3=T2* T 
TA=T3*T 
T5=T4*T 


(20), F I ( 20 ) , 61(20) 

<20 ) ,FI I( 20), GI I ( 20 ) 


— CALCUALTE THE FREE ENERGY FUNCTION FCRT(I) 

FORT (I )=FREE ENERGY FUNCTTCN 

DO 4 1 . I := 1 . NQ 

IF( T.GT.6000. )G0T062 05 

FORT (I )=AI (1 )*( l.-ALOG(T) ) -01 ( I )*T/2.-CI< I)*T2/6.-DI( t)*T3/12. 

I -FI ( I)*T4/20.+FI (I )/T-GI ( I) 

IF ( I CODE < l ).EQo DGOTC41 
C ( I ) =FORT ( I ) TALOG (P) 

GO TO 4 1 

6 20 5 FORT ( I >=A! I ( I ) * ( 1 • — ALOG( T) ) — BI I ( I )*T/2.-CI I ( I )*T2/6.-DI K I l*T3, 
1 -E I I ( I )*T4/20. +FII ( I l/T-GII < I ) 

IF { I CODE ( I ) . EQ. 1 ) GCT041 
C( I ) =FORT( I ) +ALOG ( P ) 

41 CONTINUE 


THER 

40 

THER 

50 

THER 

60 

THER 

70 

THER 

80 

THER 

90 

THER 

100 

THER 

110 

THER 

120 

THER 

130 

THER 

140 

THER 

150 

THER 

160 

THER 

170 

THER 

180 

THER 

190 

THER 

200 

THER 

210 

THFR 

220 

THER 

230 

THER 

240 

THER 

250 

THPR 

260 

THER 

270 

THER 

280 

THER 

290 

THER 

300 

THER 

310 

THER 

320 

THER 

330 

THER 

340 

THER 

350 

THER 

360 

THER 

370 

THER 

380 





SUBROUTINE MATI NV < A *N ,B , M* N MAX ) 

MAT I 

10 

c 



MATT 

20 

c 



MAT I 

30 

c 


MATRIX INVERSION WITH ACCOMPANYING SOLUTION OF LINEAR EQUATIONS 

MAT I 

40 



DIMENSION A{7,7),B<7.1>,IPI VCT<7) , INDEX <7,2 > 

MAT I 

50 



EQUIVALENCE (IROW.JROW), C ICOLUM, JCOLUM) » < AMAX ,T ,SW AP > 

M AT I 

60 

c 



MAT I 

70 

c 


INITIALIZATION 

MAT I 

80 

c 



MAT I 

90 


ez 

I SCALE =0 

MAT I 

100 


6 

Rl=10* 0**1 8 

MAT I 

1 10 


7 

R2=l • 0/R 1 

MATI 

120 


10 

DETERM=1.0 

M A T I 

1 30 


1 5 

DO 20 J-l * N 

MAT I 

140 


20 

IPIVOTI J) =0 

MATI 

150 


30 

DO 550 1st, N 

MATI 

160 

c 



MAT I 

170 

c 


SEARCH FOR PIVOT ELEMENT 

MATI 

180 

c 



MAT I 

190 


40 

AMAX=0o0 

MATI 

200 


45 

DO 105 J=! »N 

MATI 

210 


50 

IF ( IPIVOT<J)-l )60 ,105,60 

MAT I 

2 20 


60 

on ICO K = l,N 

MAT I 

230 


70 

IF { IPIV0T<K>-1 >8C ,1 00,740 

MAT I 

240 


80 

IF { ABS(AMAX)-ABS« A(J.K) ) >85,100,100 

MATI 

2 50 


85 

IROW=J 

MATI 

260 


90 

ICOLL'M=K 

MAT I 

270 


95 

AMAX=A{ J,K ) 

MATI 

2 80 


100 

CONTINUE 

MATI 

290 


105 

CONTINUE 

• MATI 

300 



IF ( AMAX > 1 10 ,1 06, 1 10 

MATI 

310 


106 

DE TERM -0# 0 

MAT I 

320 



!SCALE=0 

MAT I 

33C 



GO TO 740 

MATI 

340 


110 

IP I VOT(ICOLUM) = IPI VOT ( I CCLUM > + 1 

MATI 

3 50 
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c 


MAT I 

360 

c 

INTERCHANGE ROWS TO PUT PIVOT ELEMENT ON DIAGONAL 

MATI 

370 

c 


MAT I 

380 

130 

IF ( IROW-ICOLUMH40.260.140 

MATI 

390 

140 

DETERM=— DETERM 

MATI 

400 

150 

DO 200 L=l ,N 

MATI 

410 

160 

SWAP = A( IRO W»L> 

MATI 

420 

170 

AC IROW,L)=AC ICOLUM.L) 

MATI 

430 

20 0 

AC ICOLUM.L >=SWAP 

MATI 

440 

20 5 

IFCM 1260,260.21 0 

MATI 

450 

210 

DO 250 L=1 ,M 

MATI 

460 

220 

SWAP =3 C IROW.Ll 

MATI 

4 70 

23 0 

BC IROW.L)=B ( ICOLUM.L) 

MATI 

4 80 

250 

BC ICOLUM.L >=SWAP 

MATI 

490 

26 0 

INDE XC I . 1 > =1 ROW 

MATI 

500 

27 0 

INDEXC 1,2) =ICOLUM 

MATI 

510 

310 

PI VOT=AC ICOLUM, ICOLUM) 

MATI 

520 

C 


MATI 

530 

c 

SCALE THE DETERMINANT 

MATI 

540 

c 


MAT I 

550 

1000 

PIVOT I =P I VOT 

MATI 

560 

1 00 5 

IF ( A BS C DFTER M 1 — R 1 1 10 30. 1010, 101 0 

MATI 

570 

101 0 

DE term=determ/ri 

MAT I 

580 


I SCALE = 1 SC ALE+ 1 

MATI 

590 


IF ( A BSC DETFRM1-R1 >1060, 102 0,1020 

MATI 

600 

1020 

DE TERM=DET£RM/R1 

MATI 

610 


I SC ALE = I SC ALE+ 1 

MATI 

620 


GO TO 1^60 

MAT I 

630 

1030 

IF(ABSCDETERM) -R2 > 1040 .1040,106 0 

MAT I 

6 40 

1040 

DE TERM =DE TERM*R 1 

MATI 

650 


ISCALE = ISC ALE-1 

MATI 

660 


IF (ABS( DETERM) - R2) 1050,1050,1060 

MAT I 

670 

1050 

DF TERM =DE TER M*R1 

MATI 

680 


ISCALE=ISC ALE-l 

MATI 

690 

1060 

IF CAB SC PI VOT I ) — R 1 >10 90 .1070,107 0 

MATI 

700 
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1070 P I VOT I =P I VOT I/R 1 
ISCALE=ISCALE*1 

IF < A B S ( PI VOT I ) — R 1 ) 320, 10 80 #1080 
1080 PI VOTI=PI VOTI/Pt 
I SCALE — I SC ALE-*- 1 
GO TO 320 

1090 IF CABStPI VOT I > -R2 ) 200 0 ,2000 , 320 
2000 PI VOTI =PI VOTI+R1 
I SCALE ~l SCALE-1 

IF(ABS(PI VOTI ) — R2 >2010,2010,320 
2010 P I VO T I =P I VO T I * R 1 
I SC ALE = I SCALE- 1 
320 DETERM=DETERM*PI VOTI 
C 

DIVIDE PIVOT RO* BY PIVOT ELEMENT 

330 A< ICOLUM, IC0LUM>=1*0 
340 DO 350 L = 1,N 

35 0 A { ICOLUM,L )-A( ICOLUM.L >/PI VOT 
355 IF < M ) 380,380,360 

360 DO 370 L=1,M 

370 B< ICOLUM.L )=B( ICOLUM ,L) /PI VOT 
C 

C REDUCE NON-PIVCT RC*S 

C 

380 DO 550 L1=1.N 

390 IFfLl— ICOL UM >400,550,400 

4C0 T=A(L1 , ICOLUM) 

420 AIL1 ,ICOLUM)=0*0 
430 DO 450 L = I ,N 

450 A (LI ,L)=A(L1 ,L) -A ( ICOLUM,L) *T 
455 IF { M ) 550,550,460 

460 DO 500 L=1 ,M 

50 0 B { L 1 ,L»=B(L1 ,L>-B < ICOLUM, L>*T 
550 CONTINUE 


MAT I 710 
MAT I 720 
MAT I 730 
M AT l 740 
MAT I 750 
MATT 760 
MAT I 770 
MAT I 780 
M AT I 790 
MAT I 800 
M AT I 810 
M AT I 820 
MATI 830 
MAT I 840 
MATI 850 
MATI 860 
MATI 870 
MATI 880 
MATI 890 
MATI 900 
MATI 910 
MATI 920 
MATI 930 
MATI 940 
MATI 950 
MATI 960 
MATI 970 
MATI 980 
MATI 990 
MAT I 1000 
M AT 1 10 1 0 
MAT I 1020 
MAT I 1030 
MATI 1040 
MAT 1 1050 
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INTERCHANGE COLUMNS 

MAT I 1060 
MATI 1070 

60 0 

DO 710 I — 1 *N 

MATI 1080 

61 0 

L-N+ 1- I 

MATI 1090 
MAT 1 1 100 

620 

.IF C INDEX! L » 1 >-I NDE X(L ,2 > >630,710.630 

MATI 1 110 

630 

JROW =1 NDE X (L » 1 > 

MATI 1 120 

64 0 

JCOLUM = INDEX(L .2 > 

MATI 1130 

65 C 

DO 7C5 K=l,N 

MATI l 140 

660 

SWAP =A ( K, JR0W> 

MATI 1150 

670 

AIK, JROi) =At K* JCOLUM) 

MATI 11 60 

70 C 

A{ K. JC OLUM > = SWAP 

MAT 1 1170 

70 5 

CONT INUE 

MAT 1 1 1 80 

71 0 

CONT INUE 

MATH 190 

74 0 

-RETURN 

MAT I 1 200 


END 

MAT 11210 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* * 


SUBROUTINE PROPRT { NSP, NI »NF > 
******* ******** 


****************** 


SUBROUT I NE 
PROPERTIES 


FOR THE CALCULATION OF THERMODYN AM IC AND TRANSPORT 


NOME NCLATURE* • • • 

Y( I ) •, . MOLE FRACTION OF CGMFCNENT I 

C( l.N)*,«MASS FRACTION OF COMPONENT I AT POINT N 
Tl.*... •••TEMPERATURE. DEG. K 

CP < I >••••• SPECIES SPECIFIC HEAT. CAL/GMOLE OF I-K 
CPM( N). ... MI XTURE SPECIFIC HEAT. CAL/GMOLE OF M-K 
HC I > •••••♦SPECIES ENTHALPY. CAL/GMOLE OF I 
HM(N)**...MI XTURE ENTHALPY. CAL/GMOLE OF M 
VI S< I >•©•• SPEC IES VISCOSITY. L8M/FT-SEC 
VI SM<N)*«.MIXTURE VISCOSITY. LBM/FT— SEC 

TCI I SPEC I ES THERMAL CONDUCTIVITY. BTU/FT— SEC— DEG . 

TCMI N)o ••MIXTURE THERMAL CONDUCTIVITY. 8TU/FT— SEC— DEG* 
COMMON /BLOCK 1 /VI ( 2 0 ) • V2 (2C > . V3 C 20 > 

CO MMC N/BLOCK 3/K 1 ( 20 ,K2 ( 20 ) 

COMMON /F Q 1 /A 1(20) * 81(20). C I ( 20 ) . DI(20>. FII20I. F I < 20 ) , GI120 

X AI 1(20) .BI I (20) .Cl I (20 ) ,01 II 20 > .El I <20 ) .FI II 20 >,GI II 20 

COMM CN /FRSTRM/ U INF, RINF, UINF2.RAD, RE, LXI, IT M» IEM, NET A 
CO MM ON /PR OP 1 /PI (60) .RHOI60 ) ,T( 60 ) .AMVM60 ) .C (20 ,60 > . CC( 5,60 ) 
C0MM0N/PR0P2/VI SMI60) ,RM(60 ) .TCM(60 ) 

CO MM C N /PROP 3 /C P(20 .60) ,H (20 ,60 > ,CPM <60 I ,HM( 60 ) 

COMMON /WT/ SM bf ( 20) .A#T(5> 

COMMON /RH/ DUD .DPHI .TO.RZB.PD.HD.HTOTAL 

COMMON /NON/RDZ .MUOZ.RMDZ.AKNF .HNF.CFNF 

DIMENSION PHI (20,20) » YPH 1(20 ) , Y ( 20 > .TC<20 ) ,VIS(20 > 

DIMENSION SAMW(2> 

REAL MU.MUDZ.KI ,K2 
DATA R / 1 • 98 716/ 

DO 50 0N=N I , NF 


PROP 

10 

PROP 

20 

PROP 

30 

PROP 

AO 

PROP 

50 

PROP 

60 

PROP 

TO 

DROP 

80 

PROP 

90 

PROP 

100 

PROP 

1 10 

PROP 

120 

PROP 

130 

PROP 

140 

PROP 

150 

PROP 

160 

PROP 

170 

PROP 

1 80 

PROP 

1 90 

PROP 

200 

PROP 

210 

PROP 

220 

PROP 

2 30 

PROP 

240 

PROP 

250 

PROP 

260 

PROP 

270 

PROP 

280 

PROP 

290 

PROP 

300 

PROP 

310 

PROP 

320 

PROP 

330 

PROP 

340 

PROP 

350 
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Tl= TCN) * TD 
T2=T1*T1 
T3=T2*Tl 
T 4=T 3* T1 
T5=T4*T1 
DO 1501 =1 »NSP 
IF( T1*GT*6COO* >GOTC 50 

CP<I,N>=( A I ( I > + BI ( I > ’ATI + CICI)*T2+ DI<I>*T3+ EI(I>*T4>*R 
H(I,N>=< AIU»*Tlt BI ( I ) *T2/2* + Cl ( I )*T3/3* + 0ICI>*T4/4. 

X + EMI>*T5/5.+ FI(I))*R 

GOTO 100 

5 0 CP(I.N)a(AIMI > + B I I < I > *T1+CI I ( I >*T2+OI I ( I >*T3+E II < I )*T4 >*R 
H( I,NI=(AIUI)*T148II(I I *T2/2 • +C 1 1 ( I >*T3/3*+D II ( I 1 *T 4/4* 

X +EI I C I ) *T5/5* +FI 11 I > )*R 

100 Y( I ) =C ( I ,N)*AMtf <N> /SMM I 1 

Vl's(I)=(Vl<n + V2C I ) *T1 + V3C I >*T2 >*l*0E-05 
TCC I ) = ( K 1 C I ) + K2C I >*Tl >*l*0E-5 
150 CONTINUE 

CALCULATE PHUI.J) PARAMETERS FOR MIXTURE PROPERT I ES • • • • 

002001 =1 «NSP 
DO 20 0 J = 1 ,NSP 

VI SI 2= SORT ( VI S< I > /VI SC J) > 

SMW1 4=( SMW( JJ/SMWCI ) >***25 

PHI < I . J ) = . 35 4* { ( 1 *+VI S12*SMW14 > **2>/SQRT{ 1 * +SMW < I >/SMW< J ) > 
200 CONTINUE 
C 

C CALCULATION OF MIXTURE PROPERT I ES* • • 

C 

DO 2501 =1 ,NSP 
YP HI ( I ) = 0« 0 
DO 250 J =1 ,NSP 

2S0 YPHI ( I >=YPHI C I > + Y( J> *PHI ( l , J> 

VI SMC N ) =0* 0 
TCM(N> = 0. 


PROP 

360 

PROP 

370 

PROP 

380 

PROP 

390 

PROP 

400 

PROP 

410 

PROP 

420 

PROP 

430 

PROP 

440 

PROP 

450 

PROP 

460 

PROP 

470 

PROP 

480 

PROP 

490 

PROP 

500 

PROP 

510 

PROP 

520 

PROP 

530 

PROP 

540 

PROP 

550 

PROP 

560 

PROP 

57C 

PROP 

580 

PROP 

590 

PROP 

600 

PROP 

610 

PROP 

620 

PROP 

630 

PROP 

640 

PROP 

650 

PROP 

660 

PROP 

670 

PROP 

680 

PROP 

690 

PROP 

700 
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003001=1 «NSP 

IFCYC I ).LT»1 .E-5) GO TO 300 
VI SMCN >=VI SMCN1+YC I >*V ISC I )/YPHI C I ) 
300 TCM(N) = TCMCN) + Y U > *TC Cl ) /YPHI < I ) 

500 CONTTNUE 

NOND I MENS IONALI ZE QUANTITIES 

DO 550 N =N I « NF 
VISMCN) = VISMCNJ/MUDZ 
TCM(N) = TCMCN)*AKNF 
RMC \ )=RHO( N) * VI SMCN) 

CPMCN) = 0* 

HMCN) = 0* 

DO 5 50 I = 1 ♦ NSP 

CPCl.N) as CP (I »N) *CPNF/SM#C I > 

HCI.N) = HCI .N)*HNFAU aO/SMtlC I) 
CPM(N| = CPMCN) + CPU ,N)*C<I.N) 
HMCN) ss, HM ( N ) + H( I «N> *C (I *N) 

550 CONTINUE 
RETURN 
END 


PROP 710 
PROP 720 
PROP 730 
PROP 740 
PROP 750 
PROP 760 
PROP 770 
PROP 780 
PROP 790 
PROP 800 
PROP 810 
PROP 820 
PROP 830 
PROP 840 
PROP 850 
PROP 860 
PROP 870 
PROP 880 
PROP 890 
PROP 900 
PROP 910 
PROP' 920 
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c 

c 

c 

c 

c 


c 

1 


c 


2 

C 

C 

3 

C 


SUBROUTINE STPSZE 

** ROUTINE TO ADJUST STEP SIZE AS NEEDED 
TO MAINTAIN ACCURACY ** 


COMMON /DEL/ DELTA *DT I L ,DT I LS 

COMMON /FRSTRM/ U INF, RINF, UINF2* R , RE, LXI , ITM, I EM, NETA 
COMMON/PROP1 /PI (60) ,RH0C60> ,G ( 60 > , AMW < 6C I , C <20 » 60 > , EC< 5, 60 ) 
COMMON /PROP 2/ MU< 6C ) »RM C60 > • AK(60> 

COMM0N/PR0P3/CPS(20,60> ,HS(20,60) ,CP C60),HM(60 > 

COMMON /RH/ OUD *DPHI ,TD ,RZE , PD * HD *HT OT AL 
COMMON /RFLUX/ E< 60 ) , I R AO , I T YPE 
COMMON /VEL/ F < 60 > *FC < 60 ) , Z <60 > , V<60 > 

CO MM ON /WALL /R V W,PR V* , T WOLD ,FLUX { 20 ) ,CWACL(20 ) ,ECWALL< 5> 

COMMON /YL /E TA ( 60 ) ,Y0ND(60 I 

COMMON /OLD/ TOLD< 60 > »EOLD ( 60 » , RHOS < 60 ) 

N=2 

CONTINUE 
I 2 = 2 

IF < NET A#G£ • 59) GO TO 5 

DO 2 I =N » NE T A 
L = I 

CHECK * ABS<G< I >-GU-l> ) 

IF (CHECK • GT « ,051 GO TO 3 

CONTINUE 

GO TO 5 

CONTINUE 
M = NET A — L + I 

DO 4 1=1, M 


STPS 10 
STPS 20 
STPS 30 
STPS 40 
STPS 50 
STPS 60 
STPS 70 
STPS 80 
STPS 90 
STPS 100 
STPS 110 
STPS 120 
STPS 130 
STPS 140 
STPS 150 
STPS 160 
STPS 170 
STPS 180 
STPS 190 
STPS 200 
STPS 210 
STPS 220 
STPS 230 
STPS 240 
STPS 250 
STPS 260 
STPS 270 
STPS 280 
STPS 290 
STPS 300 
STPS 310 
STPS 320 
STPS 330 
STPS 340 
STPS 350 
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K = NET A — I + 1 

STPS 

360 


GC K+ 1 1 = G ( K 1 

S TP S 

370 


FCK+l) =F(K> 

STPS 

380 


00100J J=1 • 5 

STPS 

390 

100 

EC< JJ.K+1) =ECC JJ.K) 

STPS 

400 


TOLO <K+ 1 )=TOLD( K ) 

STPS 

410 


RHOS(K+1)=RHOS(K) 

STPS 

420 


RHOIK+l) = RHOC K) 

STPS 

4 30 


RM <K+1> = RM <K) 

STPS 

440 


IF < I RAO «E Q • 3) E(K+l) = E<K> 

STPS 

450 


ET A { K+ 1 ) = ETACK) 

STPS 

460 

4 

CONT INUE 

STPS 

4 70 

C 

4 ' 

STPS 

480 


G(l_) = CG(L-l) + GCL+l) ) / 2*0 

STPS 

490 


F(L) = (F ( L- 1) +F( L+l ) > /2* 

STPS 

500 


0010 1 J J=1 . 5 

STPS 

510 

101 

EC< JJ.L)=(£CCJJ.L-l)+£C(JJ.L+i ) )/2# 

STPS 

520 


TOLO (L)=(TOLD(L-l )+TOLD<Lfl) )/2*0 

STPS 

530 


RHOS <L )=(RHCS<L-1 )+RHOS<L+l > >/2.0 

STPS 

540 


RHO(L) = (RHO(L-l > +RHC ( L+ 1 ) ) /2 • 

STP5 

550 


R««S (L) « (RM (L-l) +RM (L+I))/2. 

STPS 

560 


IF ( I RAD *EO • 3) E ( L ) =(ECL-1)+ E<L+l))/2*0 

STPS 

5 70 

■ 

ET ACL) = (ETA(L-l) ♦ ETACL+l) >/2*0 

STPS 

580 


NETA = NETA 1 

STPS 

590 


N=L 

STPS 

600 

c 


STPS 

610 


IF ( NETA « LT » 59) GO TO 1 

STPS 

620 

c 


STPS 

630 

5 

CONTINUE 

STPS 

640 

C 


STPS 

650 


IF { I 2 • GE • NETA) GC TO 10 

STPS 

660 


DO 6 I = I 2 » NETA » 2 

STPS 

670 


L=I 

STPS 

680 


IF CL* EQ* NE T A ) GO TO 6 

STPS 

690 


IF ( E TA { I ) « EQe 0«98> GO TC 6 

STPS 

700 
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CHECK =ABS(GCI + U - GCI-1) > 

STPS 

710 


IF (C HECK « LT • 0*005) GO TO 7 

STPS 

720 

6 

CONTINUE 

STPS 

730 

C 


STPS 

740 


GO TO 10 

STPS 

750 

7 

CONTINUE 

STPS 

760 


I2=C+1 

STPS 

770 


IF(ETA(L+1 )-ETA<L-l ).GT. .04) GO TO 5 

STPS 

780 

C 


STPS 

790 


DO 8 I=L»NETA 

STPS 

800 


G ( I ) = G< ! +1 ) 

STPS 

810 


F< I) = F( I +1 ) 

STPS 

820 


D0102J J=1 * 5 

STPS 

830 

102 

EClJJ.I )=FC( JJ.I+1 ) 

STPS 

840 


TOLD < I )=TOLOU + 1 ) 

STps 

850 


PHOS ( l >=RH0SU + I) 

STPS 

660 


RHO( I ) = RH0<l4l ) 

STPS 

870 


RM ( I } = RM d + 1 ) 

STPS 

880 


IFdRAD.EO, 3) E(I) =E < I + 1 ) 

STPS 

890 


ETA< I )=ETA( I +1 > 

STPS 

900 

8 

CONT INUE 

STPS 

910 

C 


STPS 

9 20 


NE T A =NET A— 1 

STPS 

930 


IF (NETA .GT. 1) GO TO 5 

stps 

940 

c 


STPS 

950 

10 

CONTINUE 

STPS 

960 


NN = NET A— 2 

STPS 

970 


DO 20 1=1. NN 

STPS 

980 


Zll) = ETA<I+1)/DTIL 

STPS 

990 

20 

CONT INUE 

STPS1000 


RETURN 

STPS 10 1 0 


END 

STPS 1020 
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FR CM CONTE P-184 *** 
HERE A IS TR I D I AGON At 


SUBROUTINE TRIO <M) 

C**4* TRIO TRIDIAGONAL EQUATION SOLVER OBTAINED 

C SUBROUTINE SOLVES AX = B FOR THE VECTOR X <W 

C M = ORDER OF SYSTEM 

C SUP = SUPER DIAGONAL OF A 

C SUB * SUB DIAGONAL CF A 

C DIAG = MAIN DIAGONAL OF A 

C B = CONSTANT VECTOR 

C SUP AND DIAG ARE DESTROYED 

C SOLUTION VECTOR IS RETURNED IN B 

C 

COMMON/VECTOR/ SUB ( 60 ) * D I AG (60 > .SUP{60 ) ,8160) 


N = M 
NN = N -I 

SUP(l) = SUP< 1 ) SO I AG< 1 ) 

Bill = B< 1 )/DI AG( t ) 

DO 10 1=2, N 
I I = I -I 

DECOMPOSE A TO FORM A = LU WHERE L IS LOWER TRIANGULAR, 

AND U IS UPPER TRIANGULAR 

DIAG(I) = DIAG(I) - SUP < I I >*SUB< I I) 

IF I l »EQ» N) GO TO 10 
SUP( I ) = SUP(I) / DIAG(I) 

C COMPUTE Z WHERE LZ = B 

10 BID = € B ( I > - SUB < I I ) *BCII>)/ DIAG(I) 

C- —COMPUTE X BY BACK SUBSTITUTION WHERE UX = Z 

DO 20 K =1 ,NN 
I = N - K 

20 BID = B ( I ) -SUPII ) *BU+1> 

RETURN 

END 


TRIO 

10 

TRIO 

20 

TRIO 

30 

TRIO 

40 

TR ID 

50 

TR ID 

60 

TRID 

70 

TRID 

80 

TRID 

90 

TRID 

too 

TRID 

1 10 

TRID 

I 20 

TRID 

1 30 

TRID 

140 

TRID 

150 

TR ID 

I 60 

TRID 

170 

TRID 

180 

TR ID 

190 

TRID 

200 

TRID 

210 

TR'ID 

220 

TR ID 

2 30 

TR ID 

240 

TR ID 

250 

TRID 

260 

TRID 

270 

TRID 

280 

TRID 

290 

TRIO 

300 

TR ID 

310 

TRID 

320 



o n n 


FUNCTION QUAD (X»FX,I) 

*# TRAPEZOIDAL QUADRATURE FUNCTION ♦* 

DIMENSION X< CO) *FX<60> 

DX = X ( I ) — X ( I-l) 

QUAD a (DX/2.0) * (FXU) «- FX(I-l) I 

RETURN 

END 


QU 

IQ 

QU 

20 

QU 

30 

QU 

40 

QU 

50 

QU 

60 

QU 

70 

QU 

SO 

QU 

RO 
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SUBROUTINE EFLUX 


EFLU 

10 


COMMON /FRSTRM/ U INF. RINF. UINF2. R • RE. LXI . ITM. I EM. NET A 

E FLU 

20 


COMMON /RH/ DUD.OPHI oTD.RZB.PO.HD 

.HTOTAL 

EFLU 

30 


COMMON /’RFL.UXZ E ( 60 ) . I R AD . I TYPE 


EFLU 

40 


COMMON/PR0P1 /PI 160) .R HOC 60 ) . T< 60 ) » AMW < 60 ) • C 120. 60 ) . CC( 5. 60 ) 

EFLU 

50 


DIMENSION E0LDI60) 


EFLU 

60 


OO 10,0 1=1. NET A 


EFLU 

70 


IF(IEM.GT.l) EOLD(I) = Ed) 


EFLU 

80 


PL = ALOGlO(PId) ) 


EFLU 

90 


TSI= T(I )*TD 


EFLU 

100 


TS = 1100* * PL +13800. 


EFLU 

no 


IF ( TS -TSI > 300.2C0.200 


EFLU 

120 

200 

FP = 10. **1.0005 *TSI +1.1 5*PL - 

3.15 ) 

EFLU 

130 


GO TO 35C 


EFLU 

140 

300 

EP = 10. **(1.875 *PL + 3.903) 


EFLU 

150 

**** £P HAS UNITS OF »*ATTS/CM**3 

*** 

EFLU 

160 




EFLU 

170 

350 

E ( I ) =(EP*R/( RINF 4UINF2 *U 

INF) )* 20866. 0 

EFLU 

1 80 

400 

F(I) =E(I) *RZB 


EFLU 

190 


IF(IEM.GT.l) E(I> = .6 *E ( I ) +.4 

*EOLD( I ) 

EFLU 

200 




EFLU 

210 

**** £ IS NOND I MENSICNAL *** 


EFLU 

220 




EFLU 

2 30 

100 

CONT INUE 


EFLU 

240 


RETURN 


EFLU 

2 50 


END 


EFLU 

260 
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FUNCTION Cl (DX,DXt» 

Cl 

10 

Cl = DX1/DX/(0X+DX1) 

Cl 

20 

RETURN 

C 1 

30 

END 

C 1 

40 
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FUNCTION C2 <DX*DX1) 
C2= (OX-OX l )/OX/DXl 
RETURN 

end' 


C 2 

10 

C2 

20 

C 2 

30 

C 2 

40 
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FUNCTION C 3 <OX,OXl) 
C3=-DX/DX1 /IDX+DX1 ) 
RETURN 
END 


C3 10 

C 3 20 

C 3 30 

C 3 40 


N> 

In 

u> 



FUNCTION C 4 (DX,DXi) 

C4 

10 

C4=2.00/OX/(OX+DX1 » 

C4 

20 

RETURN 

C4 

30 

END 

C 4 

40 
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FUNCTION CS (DX.OX1J 
C5=— 2*00/0 X/DX1 
RETURN 
END 


C5 10 

C 5 20 

C 5 30 

C 5 40 
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FUNCTION C 6 COX,DXl> 
C6=2*D0/DX1/<DX+DX1 ) 
RETURN 
END 



BLOCK DATA DATA 

CO MM ON /F I NV/ NH VL , NIHVC *FH VC ( l 2 > ♦ DJ < 9 ) ,HV J ( 9 > #Z KZ DATA 

COMM CN /FRSTRM/ U INF. RINF, UINF2. R • RE. LXI . ITM. I EM. META DATA 
COMMON/GUE SS/TG1 (60) ,TG2(60> DATA 

COMMGN/PROP1/PI (60) ,RHC(601 . T ( 60 ) . AMW ( 60 ) * C (20 .60 > * EC( 5, 60 > DATA 

COMMON /PR0P2 / MU(60) ,RM (60 ) , AK(60> DATA 

COMMCN/PROP3/CPSC 20 .60) .HS<20 .60 ) ,CP (60).HM(60) DATA 

CCMMCN/NUMBER/NSP ,NNS» NE *NC DATA 

CO MM ON /EL.SP/LSP{5) DATA 

COM MON /I D/ SP ( 20 ) »EL(5) DATA 

COMMON /W T/SM VS { 20) * A VlT (5) DATA 

COMMON /BL0CK1 /VI (20) . V2 (20 ) . V3 ( 20 ) DATA 

COMMON/BLOCK 3/K 1 (20) »K2(20) DATA 

COMMON /EQ1 /AI ( 20 ) . B I ( 20 ) * CI(20). DI(20). EI(20). FI(20>, G I ( 20 ) * DAT A 

X AI I (20 ) .BI I (2C ) .Cl I (20 )*DI 1(20 ).EI I (20) ,FI K 20I.GIK 20) DATA 

CCMM CN /E Q 2 /A A ( 2 0 « 5 ) .ICODE(20> DATA 

C0MM0N/EQ3/I A( 20*51 DATA 

REAL K1.K2 DATA 

CDMMON/CK/I SN( 20) ,M*T( 19 ) DATA 

REAL MWT DATA 

data ISN/ ' DATA 

1 11, 8. 19, 12. 20. 14, 13. 10, 10. 9. 2. 4, 6, DATA 

2 3. 5, 7, 15. 16, 17, 1/ DATA 

data MS»T/ DATA 

1 28*011, 12*011* 24*022* 36*033* 12*011* 25*030* 26*019* 27*027* DATA 

2 0 2.C16, 01*008, 26*016* 14*008* 14*008* 16*000* 16*000. * 000 5486 « DATA 

3 26*038, 37.041, 49*052/ DATA 

DATA NETA/Q/ DATA 

DATA RHO /25* 1 » 1 4*3,8* 85 .6* 50 ,4* 37 , 3*01 .2*49. 2* 17 , 1 *90 , 1*67. 1*46. DATA 

1 1*29,1* 16. 1*08, 1*03, 1*00, 4441*0/ DATA 

DATA RM /I 0. 0 , 7*71 ,5*89 ,5* 1 0 .4* 18 ,3* 54.3.3 t , 3 *1 0, 2*83, 2*48, 2*09, DATA 

1 1*72, 1*42. 1.22. 1.09, 1*02, 44*1*0/ DATA 

DATA TGI / *1033. .2294, .3531, *4719. *5777, .6531, *6867, *7034, *7145* DATA 

1 * 72 36,* 73 21 ,» 740 1 •• 7479 ,♦ 755 4 ** 7 62 8 *• 7699 , *7759, *7836. *790 2, DATA 

2 * 79 67, *80 30*. 8092 » • 8 1 53 , . 821 3 , • 8272 •• 833 1 « • 8 389 * • 8447 • • 8504. DATA 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

no 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

200 

290 

300 

310 

320 

330 

340 

3S0 
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3 • 85 62 « * 06 1 9*» 8676 8 73 4 1# 8791 * *8850 ,.890 8 , » 8968, « 9028, • 9089* DATA 360 

4 .9151 ,.9215. • 9280. .9347, .94(7. .9488. .9563. .964 1 . .9723 .. 9809, DATA 370 

5 .9901,10*1.0/ DATA 380 

DATA TG2 / • 2325. » 3325 ,e 3325 3325 3325 3325, . 3325, » 3326, , 3328 , DATA 390 

1 • 3331 ,.3336 ,. 3344, .3357, .3373 ..3408. .3452. .3515 . .360 1, • 371 8, DATA 400 

2 .3673, .4076,. 4335, .4665,. 5075*.5560«. 6054, .6487,. 68S7.. 7161, DATA 410 

3 . 7404,. 7595,. 7749, .7878,. 7993 , .8 100 ,*8203, .830 2,. 8 399, .8496, DATA 420 

4 . e594,. 8693,. 8797, .8904, .9019, .9142, .9278, .9476, .9609, .9757, DATA 430 

5 .9877,10*1.0/ DATA 440 

C ' DATA 450 

DATA NSP.NNS.NE ,NC/20. 0,5,20/ DATA 460 



DATA 

S P/ *02 • 


• N2 • , 


• 0 • , 

• N * , 

• 0+ « , 

DATA 

47C 


1 

• N+ * 


•E- • • 


•c • , 

• H • , 

• H2 • , 

DATA 

480 


2 

•CO * 


• C 3 — G • , 


• CN • , 

• C2H •, 

• C2H2 • , 

DATA 

490 


3 

* C3M • 


•C4H *. 


* HCN • , 

* C 2 * , 

• C+ */ 

data 

500 

c 









OATA 

510 


DATA 

SMW/32. 000 


2 8. 01 6, 


16.000 , 

14.008 . 

16.000, 

DATA 

520 


1 

1 4. •''OS 


•486E-4, 


1 2.011 « 

1 .008, 

2.0 16, 

DATA 

530 


2 

2 8. 01 1 


36. 033 * 


26.019, 

25.030 , 

26.038, 

DATA 

540 


3 

37. 041 


49. 052 • 


27.027 , 

24. 022 , 

12.011/ 

DATA 

550 

c 









DATA 

560 


DA TA 

Vl/C. 1693E 

01 

, 0. 9704E 

00 

,0. 1S19E 

0 1 ,0. 2534E 

00,0*0 * 

DATA 

570 


1 

0. 0 


,0. 0 


,0. 1 997 E 

01 ,0. 2941E 

00, -.7944E-0 1 . 

DATA 

580 


2 

0, 2404E 

01 

,0.201 9E 

0 1 

,0.24045 

01 .0.2404E 

01,0.1 396E 01, 

DATA 

590 


3 

0. 201 9E 

0 1 

•0.2C19E 

01 

,0.1 378E 

01 ,0. 1931 E 

01.0.0 / 

DATA 

600 

c 









DATA 

610 


DATA 

V2/0. 1496E 

-02 

,0. 1613E- 

02 

,0*1 875E— 0 2,0 .2206 E- 

’0 2,0. 5000E— 0 3 , 

DATA 

620 


1 

0. 50 OOE 

-03 

, 0. 50 OOE— 

03 

,0 .1772E 

-02 , 0.8893 E- 

'03,0. 7907 E — 0 3 , 

DATA 

630 


0. 1 363E— 02 ,0.1 1 79E— 02 ,0.1 36 3E— 0 2,0.1 363 E— 02 * 0 • 842.3E— 03 » DATA 640 

O. 1 1 79E-02 ,0.11 79E-02, 0.9651 E-0 3,0. 1 393 E-0 2 , 0 • 5000F -0 3/ DATA 6J50 

DATA 660 


DATA V3/-o 2276E— 0 7 , — .191 6E— 07 , — • 22286—07 , — • 37 37 E— 07, — . 1000 E— 07, DATA 670 

1 0 OOE — 0 7,—o 1 000E-07 .-.3378E-07 .-.8111 E-08, -.8864E-0 8, DATA 6 80 

21 84E — 0 7 »— . 1 655E— 07 . — .2 1 8 4E— 0 7 , — • 2 1 84E— 07, — . 6939E— 08 , DATA 690 

1 655E— 0 7 . 1 655E— 07 » — . 948 1 E-**0 8 , — • 25 75E— 07 . — . 1000E-07/ DATA 700 
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UN'* CJfO"* fil M •- U N >* CjJPO*-* Wto 


DATA 

1 


DATA 


DA TA 


DA TA 


DATA 


DATA 


DATA 


A I/O* 

331 6E 01 

«Oo 

3221E 01 

.0 

« 2670E 01 

.0 

♦2474E 01 

0 

*249 IE 01. 

DATA 

DATA 

710 

720 

O, 

2727E 01 

f 0# 

2500E 01 

tO 

•2612E 01 

.0 

•2500E 01 

0 

• 3358E 0 1 . 

OATA 

730 

0 9 

3254E 01 

• Oe 

4002E 01 

.O 

• 34 1 1 E 01 

.0 

* 3485E 01 

0 

* 3891 E Cl. 

DATA 

740 

09 

3965E 01 

.0. 

5874E 01 

.0 

• 3654E 0 1 

*0 

* 444 3E 01 

0 

•2609E 01/ 

DATA 

750 

BI /O. 

1 1 5 IE— 0 2 

tO# 

S878E-03 


• 1970E-03 

.0 

.9O97E-04 

0 

•2762E-04, 

DATA 

DATA 

760 

770 

— • 

2820E- 03 

* o« 

3440E-06 

* — 

•2030E-03 

* — 

•8243E-06 

0 

a 2794 E-0 3 * 

DATA 

780 

0. 

9698E-03 

*0* 

3541 £-02 

.0 

• 4897E-0 3 

.0 

*356 3E-02 

0 

•5717E-02, 

DATA 

790 

0* 

6200E-02 

• 0 c 

7403E-02 

• 0 

•3444E-02 

* — 

• 2 80 5E-O3 

- 

* 1393E-03/ 

DATA 

800 

Cl/- • 

3726E-06 


2907E-06 

.0 

•7193E-07 

* — 

.781 4E-0 7 


.1881 E-0 7, 

DATA 

OATA 

810 

820 

0« 

l losE-^e 


1954E-09 

lO 

• 1095E-06 

*0 

• 642 IE— 0 9 

0 

•9372E-07. 

DATA 

830 

— • 

2647E-C6 


13 186-05 

.0 

•1005E-06 

. — 

•1237E-05 

— 

•1957E-0S. 

DATA 

840 

— • 

2265E-05 

1*9 

2729E-05 

» — 

• 1258E-05 

• 0 

•3036E-06 

0 

« 5959E— 0 7 / 

DATA 

850 

DI/D* 

6 106E- 10 

* 0 • 

3938E-1G 

, — 

.890 IE-1 1 

.0 

•2218E-10 

0 

•3807E-1 l. 

DATA 

DATA 

860 

870 

. 

1 551 E-l 0 

* 0 o 

3937E-1 3 

« — 

• 1695E-1 0 

* — 

• 1720E-1 2 

- 

•2948E-10. 

DATA 

880 

0, 

3037E- 1 0 

t0« 

2064E-09 

♦ — 

• 3473E— 1 0 

.0 

• 1 866E-09 

0 

• 293 1 E-0 9. 

DATA 

890 

0. 

371 7E-C9 

• 0 • 

4437E-09 

.0 

*21 69E -09 

* — 

• 6244E-1 0 

- 

.1037E- 10/ 

DATA 

900 

Cl/-. 

3666E- 14 

• “ * 

2000E-14 

.0 

.4002E-1 5 

* — 

•1489E-14 


•1028E-15. 

DATA 

DATA 

910 

920 

0. 

7847E-1 5 


2573E-1 7 

.0 

•8590F-15 

.0 

• 1 45 7E-1 6 

0 

• 214 IE- 1 4. 

DATA 

9 30 

— • 

1 1 77E-1 4 

• *o 

1 144F-1 3 

.0 

.2361E-1 4 

* — 

.101 3E-1 3 

- 

•1585E-1 3. 

DATA 

940 

— • 

2262E-13 


2637E-1 3 

« — 

• 1430E-1 3 

.0 

•391 5E-14 

0 

•6345E-1S/ 

OATA 

950 

FI/-* 

1044E 04 

t — • 

1 043 E 04 

.0 

•2915E 05 

.0 

• 5 60 9 E 05 

0 

•1879E 06. 

DATA 

DATA 

960 

970 

0* 

2254E G 6 


7450E 03 

.0 

•8542E 05 

.0 

• 254 7 E 05 

- 

•101BE 04, 

DATA 

980 

— « 

1434E 05 

* 0 • 

9423E 05 

fO 

•4745E 05 

.0 

•5809E 05 

0 

* 2590 E 05. 

DATA 

990 

0* 

6283E 05 

tO* 

7605E 05 

.0 

•1442E 05 

*0 

•9787E 05 

0 

•2168E 06/ 

DAT A 1000 

GI/0* 

5393E 01 

• Oo 

4326E 01 

.0 

• 4504E 01 

.0 

* 4 30 0 E 01 

0 

o 4424E 01, 

DATA 1010 
DAT A 1020 


3645E 01 

f — • 

1173E 02 

« 0 

•4144E 01 

» — 

.461 2E 00 

- 

• 3548E 01, 

OATA 1030 

0* 

4875E 01 

t 0 4 

2020E 01 

.0 

* 4746E 0 1 

.0 

.478 4E 0 1 

0 

•652QE 00, 

DAT A 1040 

0* 

3467E 01 

I*® 

40 1 OE 01 

.0 

•2373E 01 

• — 

•1090E Oi 

0 

•3709E 01/ 

DATA 1050 
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w m uj to *“ ojw*“ u m " u w " u m wro 


C 


DATA All /O* 372 1 £ 01 
O, 2499E 01 
0.3366E 01 
0* 396 SE 01 


DATA 


DATA 


DATA 


DATA 


DATA 


SI! /0. 4 25 4E-C3 
3725E-05 
0. 8P27E-03 
0.6200E-02 

C 1 1/-* 2 33 EE- 0 7 
0*1 147E-C7 
1968E-06 

— • 226 5E— 05 

D 1 1 /0.6050E- 12 
-.1 102E-1 1 
0. 1 94CE-1 0 
0,371 7E-09 

F I I /— ,51 86E— 1 7 
0, 3078E-16 
-, 5549E- 1 5 

— • 2 26 2E— 1 3 

F I I /— , 1 044E 04 
0.2254E 06 
-,1434E 05 
0.62S3E 05 


3727E 01 
2508E 01 
2213E 02 
5874E 01 

4684E-03 

6332E-05 

1759E-01 

7403E-02 

1 140E-06 
1364E-08 
5565E-05 
27 29 E — 05 

1 154E-10 
1094E-12 
6758E-09 
4437E-09 

3293E-15 
2934E-1 7 
2825E-1 3 
2637E-1 3 

1043E 04 
7450E 03 
94 23 E 05 
7605E 05 


0*2548E 
Oo 2 1 4 1 E 
0.34 73E 
0, 3654E 


01.0. 2746E 01 
01*0* 393 4E 01 

01. 0. 5 30 7E 01 
01*0 , 4026E 01 


— •595 2E— 04 , — , 390 9E— 03 
0,321 9E -03,-, 1776E-02 
0 « 7337E— 0 3*0* 8966E— 0 3 
C ,34 44E— 02 ,0,4 857E— 0 3 

0,2701E-07,f), 1 338E-06 

— • 54 98E— 0 7,0 .6 01 3E-0 6 
— , 90 88E— 07 , — . 1378E-0 6 
-, 1258E-05 ,-,7026E-07 

-•2798E-1 1 ,-. 1 191E-10 
0, 3604E — 1 1 ,-,781 9E-10 
0*4847E-1 1 ,0,9 25 IE-1 1 
0,2 16 9E-0 9 ,0,46665-1 1 

0.9380E- 16, 0,336 9E-15 

— «5564E— 16,0 .3482E-1 4 
—*101 8E-1 5,-*2278E— 15 
-• 14 30E-13,-,1 14 2E-15 

0,291 5E 0 5,0, 5609E 05 
0.8542E 05 ,0 , 2547E 05 
0.5420E 05,0, 5809E 05 
0.1442E 05,0 ,9787 E 05 


0 • 2944E 01. 
0 • 3363E 01, 
0.6789E 01, 
0 • 2S28E 01/ 

-•4108E-C 3, 
0 • 4656E— 0 3 , 
0.1503F-02, 
0 • 4869E-0 5/ 

0 • 9 15 6E-0 7 , 
-•5127E-Q 7, 

— • 2295E— 0 6 , 
-•7026E-0 8/ 

-*5848E- 1 1 , 
0.280 2E-1 1, 
0 • 1 534E— 10, 
0.1 134E-1 1/ 

0, 1190E-1 S, 

— ,490 5F— 1 6, 
— • 3763E- 15, 
— • 3476 E— 16/ 


0, 1879E 
-• 1018E 
0 • 2590E 
0.2168E 


06. 

04, 

05. 
0 6 / 


DATA G I 


I/0.3254E 
0.4950E 
0. 4263E 


0, 3467E 


01 

• 0, 1294E 

01 .0.5049E 

0 1 

♦0.2872E 

01 

,0, 1750E 

0 

1, 

01 

,-• 1208F 

02 , 0.68 74E 

01 

, — • 8 598E 

rtf 

» — • 371 6E 

0 

1. 

01 

1021E 

03,0,415 2E 

01 

,— ,5288E 

01 

, — • 1 539E 

0 

2 « 

01 

.-•4010E 

01 .0.2373E 

01 

,0, 1090E 

01 

,0,41395 

0 

1/ 


DATA 1060 
DAT A 1070 
DATA 1080 
DAT A 1090 
DAT A 1 100 
DATA 11 10 
DATA 1 1 20 
DATA 11 30 
DATA 1 1 40 
DATA 11 50 
DATA 1 160 
DAT All 7C 
DAT All 80 
DATA 1 1 90 
DAT A 1 200 
DATA 1210 
DATA 1220 
DATA 1230 
DATA 1240 
DATA 1250 
DATA 1260 
DAT A 1 270 
DATA 1280 
DATA 1290 
DATA 1300 
DATA 1310 
DAT A 1320 
DATA 1330 
DAT A 1 340 
DATA 1350 
DATA 1360 
OAT A 1 370 
DAT A 1 380 
DATA 1390 
DATA 1 400 
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« n 


c 


c 


c 

c 


c 


c 


DATA K1/Q.1019E 01,0*6541E 00*0«1250E 01.0.1281E 01.2.6000E 01* 

1 2.6000E 01.2.6000E 0l*9*2S06E 01.0.2496E 01.0.3211E 01* 

2 0, 85S9E 00 * 0* 6 304E 00*0,8589E 00*0oll26E 01.0.1126E 01* 

3 0* 63C4E 00 * 0* 6 30AE 00.0*4855E 00,0o8589E 00 . 0 • 1000 E-04/ 

DATA K 2/0* 4901E-03.0. 6457E-03 .0.7092E-C3 ,0* 8593E-03 • 0 • 00 OOE-O 3 « 
1 G* 0300E-03 .0* OOOCE— 03 *0 ,7479E—03 *0*51 29E-0 2*0 • 5344 E -02* 

G« 6233E — 03.0® 5904E—03 *0 • 623 3 E— 03 «0« 74 39 E— 03* 0 • 74 39 E— 0 3* 
0. 5804E-03 , 0* 5804E— 03 ,0*871 4E— 03 *0* 62 33 E— 03* 0 • 7350 E— 03/ 

DATA I CODE /20*0/ 

DATA EL/ *0®. ® H * * ®N®» 1 0® * *E®. / 

DATA AWT/ 12,011* 1*008. 14*008. 16*000* 5*486E-4 / 

DATA IA/ 0 .0 *0*0,0 »0*C ,1 *0 ,0 .1 ,3. 1 *2 ,2,3 .4, 1 * 2, l* 

H 0,9, 0.0, 0.0*0. 0.1 *2. 0*0 *0.1 ,2*1,1. 1*0*0* 

N C , 2 * 0*1 . 0*1 * 0 , 0 * 0*0 *0 , 0*1 , 0 , 0 * 0 , 0 , 1 * 0 , 0 . 

0 2,0, 1,0,1 ,0,0, 0,0,0, 1,0*0, 0,0* 0,0, 0,0.0, 

E 2,2,1 ,1 ,0*0*1 ,1 ,0.0. 2, 3, 2, 2, 2*3, 4, 2*2,0/ 

DATA L SP/2C , 9, 6 ,5 ,7/ 

OATA NHVL /9/. N1 HVC /12/ 

DATA FH VC /5®0. 6,0, 7*0, 8*0* 9*0. 10*0. 10*8, 11*1, 

1 12*0, 13,4, 14*3, 20*0/ 

DATA DJ /0 , 6 , 2*2, 1,5, 1*65, 1,4, 1*0, 1*2. 1,4, 1,0/ 

DATA HVJ / 1 « 3* 2«7. 5*75. 7,57, 9.1* 10.4, 11,4, 12,7, 13,9/ 

DATA ZKZ /7. 26E-16/ 

END 


DATA 1410 
DATA 1420 
OATA 1 430 
DAT A 1 440 
DATA 1450 
DATA 1460 
DAT A 1470 
DATA 1480 
DATA 1490 
DATA 1500 
DATA 1510 
DAT A 1 520 
DATA 1530 
DAT A 1 540 
DATA 1550 
DATA 1560 
DATA 1 570 
DATA 1580 
DATA 1 590 
DATA 1600 
OATA 1610 
OATA 1620 
DAT A 1630 
DATA 1640 
DA T A 1 650 
DATA 1660 
DAT A 1 670 
DAT A 1 680 
DAT A 1690 
DAT A 1700 
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c 

c 

c 

c 

c 


c 


c 

c 

c 

c 

c 


SUBROUTINE LRAO LRAO 

LRAO 

LRAO 

** THIS IS A DRIVER PROGRAM FOR SUBROUTINE TRANS WHICH CALCULATES **LRAD 
THE RADIATIVE FLUX DIVERGENCE THROUGH A ONE -01 ME NS ION AL SLAB LRAD 

FOR A GIVEN TEMPERATURE AND SPECIES DISTRIBUTION LRAD 

COMMON / SF LUX/ QR I I 3 > LRAD 

COMMON /TRN/ NUT <60 ) * FMCC12.60>« FPC< 12,60). LRAD 

1 FM(9,60>. FP<9 #60 ) • LINES LRAD 

COMMON /TE ST/ETZ(60) , I EZ LRAD 

COMMCN /YL/ETA (60) .Y0ND<60> LRAD 

COMMON /PROP 1 /P 1(60) » RHG ( 60 ) * T ( 60 > ♦ A MW ( 60 ) » C (20 .60 > , ECt 5. 60 ) LRAD 

COMMON/SIS/SY( 20.60) LRAD 

COMMON /FRSTRM/ U INF. PINF. UINF2. P . RE. LXI, ITM. I EM. NET A LRAD 
COMMON /DEL/ DEL T A ,DTI L . DT I LS LRAD 

COMMCN /NON/RD i .MUCZ.R MD Z . AKNF . HNF « CFNF LRAD 

COMMON /MAIM /KEEP .MAXE.MAXM.MAXD, IDG. MCONV .ECONV . DCONV «LT . I AB LRAD 
COMMCN /RFLUX/ E ( 6 0 ) . I R AD , I TYPE LRAD 

COMMON /NUMDEN/ SND02(60). SNDN2(60), SNDO(60). SNDN(60). LRAD 

1 SNDE ( 60 )♦ SNDCI60), LRAD 

2 SNDH ( 60 > » SNDC2 ( 60 ) * S NDH2 ( 60 ) * SNDCO(60). LRAD 

3 S NDC 3 < 60 ) » SNDC2H ( 60 ) LRAD 

COMMON /SPEC/ MF, XMOL LRAD 

LRAD 

001001=1.20 LRAD 

DO ICC J = 1 .NETA LRAD 

100 SY ( I « J ) = CC I . J) LRAD 

DO 20 0=1, 20 LRAD 

DO200J=I .NETA LRAD 

200 IF(C( I , J).LT*0. )C(I . J) = l.E-20 LRAD 

LRAO 

** NETA = NUMBER OF ETA POINTS LRAD 

MF = 1 IF SPECIE MOLE FRACTIONS ARE INPUT AND NUMBER DENSITY LRAD 
TO BE COMPUTED LRAD 

0 IF SPECIE NUMBER DENSITIES ARE INPUT LRAD 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
1 10 
120 
130 
140 
1 50 
160 

1 70 
1 80 
190 
200 
210 
220 

2 30 
240 
250 
260 
270 
280 

2 90 
300 
310 
320 

3 30 
340 
350 
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no no 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NS = 
L INES = 

IDG = 


NUMBER OF SPECIES TO BE INPUT 

1 IF LINE CALCULATION IS TO BE DONE 

0 IF ONLY CONTINUUM CALCULATION IS TO BE DONE 

0 ONLY FINAL PRINT IS GIVEN 

1 PRINT IS GIVEN FOR EACH ETA 
99 COMPLETE PRINT 


DELTA 
DTI L 
X MOL 


= BODY RADIUS (FT) 

= NONDI MENSICNAL STAND-OFF DISTANCE 
= TRANSFORMED STAND-OFF DISTANCE 
= LO FOR PUN WITH MOLECULES 
0*0 FOR RUN WITHOUT MOLECULES 


XMOL =0*0 
XMOL= 1*0 


** DETERMINE ETZ PCINTS 
N 2 - NETA-2 
K =0 
IEZ =0 

DO 20 1=1* N2, 2 

K = K4- l 

20 ETZ(K) = ETA( I ) 

FTZIK+n = ETA(NETA-t) 
ETZIK+2) = ETA(NETA) 

IF Z = K +1 


** COMPUTE THE Y COORDINATE ** 

YOND(l) =0*0 

SUM =0*0 

DO 10 K = 2 * NE T A 

DETA = ETA(K) -ETA(K-1» 

SUM = SUM +DETA* ( 1 • /RHG { K ) Fl./RHO<K-l) >/2*0 
YOND(K) = DTIL *SUM 


LRAO 
LRAO 
LR AD 
LRAD 
LR AD 
LRAD 
LRAD 
LRAD 
LRAD 
LRAD 
LRAD 
LRAD 
LRAD 
LRAD 
LRAD 
LRAD 
LRAD 
LRAO 
LRAD 
LRAD 
LRAD 
LRAD 
LRAD 
LRAD 
LRAD 
LRAD 
LRAO 
LRAD 
LRAD 
LRAD 
LRAD 
LRAD 
LRAD 
LRAD 
LRAD 


360 
370 
380 
390 
400 
410 
4 20 
430 
440 
450 
460 
,470 
4 80 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
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30 CONTINUE 

DELTA = YONOCNETAI 
DO 40 K = 1.NETA 

YQNDlK) = YONDC K» /YOND(NETA) 
40 CONTINUE 
C 

LINES= 1 
ID GS = IDG 
IDG = 0 
CALL TRANS(l) 

IDG= IOGS 


C 


C 44 

INDEX IS NUMBER GIVEN 

SPECIE FOR 

c 

1 


02 

c 

? 

— 

N2 

c 

3 

ss 

0 

c 

4 


N 

c 

5 

2= 

E- 

c 

6 

= 

c 

c 

7 

=r 

H 

c 

8 

= 

C2 

c 

9 

ss 

H2 

c 

l 0 

= 

CO 

c 

1 1 

ts 

C3 

c 

12 

— 

C2H 


C 


C 

DO 3001 =1,20 
DO 300J=I ,NETA 
300 CC I, J) = SY< I , J> 
RETURN 
END 


LR AD 710 
LRAD 720 
LRAD 730 
LRAD 740 
LRAD 750 
LRAD 760 
LRAD 770 
LRAD 780 
LRAD 790 
LRAD 800 
LRAD 810 
LRAD 820 

USE IN STORING ARRAYS ** LRAD 830 

LRAD 840 
LRAD 850 
LRAD 860 
LRAD 870 
LRAD 880 
LRAD 890 
LRAD 900 
LRAD 910 
LRAD 920 
LRAD 930 
LRAD 940 
LRAD 950 
LRAD 960 
LRAD 970 
LRAD 980 
LRAD 990 
LRAD1000 
LRAD 1010 
LR AD 1 0 20 
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O' < 


c 


c 


c 


SUBROUTINE RADIN 
COMMON /DaUG^ QLC ( 60 ) , 


QCL<60). QLL ( 60 ) • DQN(6D>. QCC<60>» 


1 

2 

3 

4 

5 

6 

7 

8 


** GROUP 1 ** 

WN < 1 ,1 ) =0. 
FG< 1 , 1 >=P. 


BEECU2.60 )• 
EP( 12,60 1 , 
QCCP< 1 2) , 
EEM<9,60> , 
OCL.P<9) * 
WPP<9,60> , 
XLPP<9 ,60) , 
WN (9,4) , 

GGM (9,4 ,60 > , 
T AUL (9,60) 


FMUCU2.60). 

T AUCC 12,60 ) , 
WM"C9.60 ) , 
XLMM (9 ,60 ) , 
QLLP<9 ) , 
GPPI9.60 ) , 

FG <9,4 > , 

FMUL (9 ,60 ) • 

ET AM( 9 ,4,60 ) • 


EW< 12,60), 
BEEL <9, 60 ), 
GMMI9.60 >, 
QLCF<9), 
DELTA, IY, 

EEP< 9,60 ) * 

GP< 9 » 4 ) , 

S SM <9,4,60), 
S8M< 9,4, 60 ) , 


GP (1,1 )=0. 
WN< 1 ,2) =18. 
WN( 1 ,3 )=1 5. 
WN ( 1 , 4 ) = 5 * 

** GROUP 2 ** 

WN< 2 ,1 ) =3, 0 
WN< 2 ,2 ) =5. 0 


WN< 2 ,3 ) =1 1. 0 
WN(2 *4 ) =1 0. 


** GROUP 3 ** 

WN<3 , 1 )=0. 

FG < 3 , 1 )=0* 

GP < 3 , 1 )=0. 

WN (3,2) =2. 0 
WN (3,3) =0. 
FG< 3,3 )=0. 


GP (3,3) =0 • 
WN (3,4) =0. 
FG ( 3 , 4 ) =0* 
GP (3,4) =0. 


IYY, 


RADI 

10 

RADI 

20 

RADI 

30 

RADI 

40 

RADI 

50 

RADI 

60 

RADI 

70 

RADI 

80 

RADI 

90 

RADI 

100 

RADI 

1 10 

RADI 

120 

R AD I 

130 

RADI 

140 

RAO I 

150 

RADI 

160 

RADI 

170 

RADI 

180 

RADI 

190 

RADI 

200 

RAD I 

210 

RADI 

220 

R AO I 

230 

RAD I 

240 

RADI 

250 

RADI 

260 

RADI 

270 

RADI 

280 

RADI 

290 

RADI 

300 

RADI 

310 

RAD I 

320 

RADI 

330 

RAD I 

340 

RADI 

350 
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c ** 


c ** 


c ** 


c ** 


c * 4 


c ** 


GROUP 4 ** 

RADI 

360 

WN < 4 » 1 ) =0* 

RADI 

370 

FG< 4, 1 1=0. 

RADI 

380 

GP( 4. 1 1=0. 

RADI 

390 

WN ( 4 »2 1 - 8 . 0 

RADI 

400 

WN<4 $2 >=2. 0 

RADI 

410 

WN ( 4 ,4 1 = 0. 

RADI 

420 

FG( 4 ,4 >=0. 

RADI 

430- 

GP( 4.4 )=0. 

RADI 

440 

GROUP 5 ** 

RADI 

450 

WN ( 5 » 1 ) =0* 

RADI 

460 

FG ( 5 • 1 )= 0 . 

RADI 

470 

GP (5*1 1=0. 

RADI 

480 

WN ( 5 «2 ) =1 4# 

RADI 

490 

WN t 5 .3) =4. 0 

RADI 

500 

WN < 5 ,4 1=1. 0 

RADI 

510 

GROUP 6 ** 

RADI 

520 

WN (6*1) =1. 0 

RADI 

530 

WN < 6 • 2 ) =4. 0 

RADI 

540 

WN { 6 »3 1 =1 3. 0 

RADI 

550 

WN (6 .4 ) =2, 0 

RADI 

560 

GROUP 7 ** 

RAD! 

570 

WN < 7 , 1 1 =0* 

RADI 

580 

FG < 7 , 1 )= 0 . 

RADI 

590 

GP< 7. 1 1=0. 

RADI 

600 

WN C 7 » 2 1=6. 0 

RADI 

610 

WN<7. 31 = 14.0 

RADI 

620 

WN < 7,4 )=3. o 

RADI 

630 

GROUP a ** 

RADI 

640 

wnc a » n =2. o 

RADI 

650 

WN ( 8 • 2 ) =?• 0 

RAO I 

660 

WN<8»3)=1I* 

RADI 

67C 

WN ( 8 *4 )=15. 

RADI 

6 80 

GROUP 9 ** 

RADI 

690 

WN (9*1) =0* 

RADI 

700 
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FG (9*1 )=0# 

RADI 

710 

GP C 9 « 1 > =0* 

RAD I 

720 

WNC9 .2 >=1.0 

RADI 

730 

WN(9 • 3 > =1 1 • 

RADI 

740 

WN<9.4>=10« 

RAD I 

750 

RETURN 

RADI 

760 

END 

RADI 

770 
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tj r\> 


C 

C 

c 

c 


SUBROUTINE TRANS USttJ 

-THIS IS A MODIFIED VERSION OF SUBROUTINE TRANS FROM K WILSON 
TRANS IS DOCUMENTED IN LWSC-687209 APRIL 69 

COMMON /ZPI/ ZP0(6>, ZPN C6 > .ZPH C 2 ) • ZPC<7) 

COMMON /FINV/ NH VL t N I HVC .FH VC <1 2 > . D J (9 ) , HV4 (9 ) , ZKZ 
COMMON /SFLUX/ QR I ( 3 ) 

COMMON /TRN/ NUT(60>, F MC ( 1 2 * 60 ) « ‘ FPC ( 12 *60 It 

1 F M < 9 » 60 ) * FP(9.60), LINES 

COMMON /YL/ETA(60>* YD<60> 

CO MM ON /PROP 1 /P (60), R(6C)» T { 60 ) • AM W ( 60 ) • C (20 ♦ 60 > » EC( 5, 60 ) 

COMMON /FRSTRM/ U INF, R I NF , UINF2,XL • RE, LXI, IT M, I EM, NES 
COMMON /D EL/ W ( 1 ) »OT I L , OT I LS 
COMMON /NON/RDZ ,MUCZ t P MD Z , AKNF , HNF • CFNF 

COMMON /MA I M/KEEP, MAXE *MAXM»MAXD, IDG, MCONV »E CONV , DCONV*L T * I AB 

COMMON /RFLUX/ E ( 60 ) , I RAO • l T YPE 

CO MM CN /RH/ DUD »DPHI , TO , RZB *PD » HD *HTGT AL 

COMMON /WT/SMW( 20 ) »AtoT<5> 

COMMON /TEST /E TZ(60) »IEZ 

COMMON /NUMDEN/ SNDO2(60), SNON2(60), SNDO(60), SNDN( 60 ) , 

1 S NDE ( 60 ) , SNDC( 6 0), 

SNDH (60), SNDC2 ( 60 ) » SNDH2I60), SNDC0(60), 

SNDC3 (60 ) • SNDC2H( 60 ) 

MMON /DBUG/ QLC(60), QCL(60), QLL ( 60 ) , DQN(60>, OCC(60), 

BEEC ( 12, 60 ) , FMVCU2.60), EM(I2,60), 

EP( i 2 *60 I , T AUC (12 ,60 ) • BEEL(9,60), 

QCC P ( 1 2 ) , WMM (9 ,60 ) • GMM(9,60», 

EEM(<3,60), XL MM ( 9 ,60 ) , QLCP(9>, 

QCLP ( 9 ) , QLLP(9>, DELTA, IY«, IYY, 

WPP ( 9 ,60 ) « GPP( 9 ,60 ) * E EP ( 9 , 60 ) * 

XLPP (9*6 01 , FG(9,4>, G P( 9 ♦ 4 ) » 

WN (9,4), F MUL (9 ,60 ) , SSM(9»4,60), 

GGM (9,4 *6C ) • ETAM(9,4 ,60 ) « SBM(9,4,60), 

T AUL (9,60) 


TRAN 10 
TRAN 20 
TRAN 30 
TRAN 40 
TRAN 50 
TRAN 60 
TRAN 70 
TRAN 80 
TRAN 90 
TRAN 100 
TRAN 110 
TRAN 120 
TRAN I 30 
TRAN 140 
TRAN 150 
TRAN 160 
TRAN 170 
TRAN 180 
TRAN 190 
TRAN 200 
TRAN 210 
TRAN 220 
TRAN 230 
TRAN 240 
TRAN 250 
TRAN 260 
TRAN 270 
TRAN 280 
TRAN 290 
TRAN 300 
TRAN 310 
TRAN 320 
TRAN 330 
TRAN 340 
TRAN 350 
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U V u 


c 

c 

c 


COMMON /SPEC/ MF. XMOL 

DIMENSION XKT { 60 ) » DQ<60> 


SAND AVERAGE ABSORPTION CROSS SECTION !EQ*A2) ** 


SIGMA! ZH.ZA. ZB. ZG>= ! ! 5.0E+0 3 *T 1 *ZG*ZKZ >/BE > * !EXP!ZDL/T1| 

1 *ZH*!ZA+ZB* <ZH**2 )/3*0 ) + 

2 T 1 + < ZA+2«0*ZE*T12> — T I *EXP ( ( ZH—ZHVP) /T 1 ) 

3 * ( Z A+ 20* ( ZHVP— ZH ) ** 2 ) -T 1*EXP! < ZH-ZHVP )/T 11 

A *2.0*ZB*T1*< ZHVP-ZH+T1 > ) 

SIGM A2< ZH* ZG .ZE . ZY> =7* 26E- 1 6*T1 *7G*EXP! ! -ZE+ZY+ZDL )/T 1)/ZH*A3 
GAMMA! ZX> = ( 1*0+ C 1* 57 C7963 *ZX ) * * 1 • 25 ) ** ( -0 • 4 ) 

- XLAMB!ZX)=!1 •0+ZX*EXP!-ZX> )/SQRT<l. 0+6*283185 *ZX 1 


** W ! GROUP I / D CORRELATI C N !E0*88) ** 


PHU !ZXI=!ATAN! 1*570796 *Z X >/ 1 • 570796 > 

C 

C A* FLUX DIVERGENCE OVERLAPPING FUNCTION !E0«92> ** 

C 

PHI21ZX) =E XP ( — Z X ) 

C 

DO 4CH 1=1. NES 
4C0 T! r > = T(I )*TD 
ZHVP =5*0 
Y I =0 • 0 

CONVER = 3.10375E+23 *R <I> *ROZ 
SNDE ! NE S ) = CONVER * C! 7 * NES ) /SMW ( 7 ) 

XNE = SNDE ( NE S ) 

FNE = ! 4 ®7 IE — 6 * XNE* * ( 2 • 0/7. 0 ) > / ! ! T ! NES ) / 1 1 606 • ) 4* ! I • 0 /7. 0 ) ) 
ZDL=AM INI! 0. 20. FNE) 

C 

C ** DEBUG PRINT ** 

C 

IF < IDG# NE *01 CALL BUGPR !1> 


TRAN 

360 

TRAN 

370 

TRAN 

380 

TRAN 

390 

TRAN 

400 

TRAN 

410 

TRAN 

420 

TRAN 

4 30 

TRAN 

440 

TRAN 

450 

TRAN 

460 

TRAN 

470 

TRAN 

480 

TRAN 

490 

TRAN 

500 

TRAN 

510 

TRAN 

520 

TRAN 

530 

TRAN 

540 

TRAN 

550 

TRAN 

560 

TRAN 

570 

TRAN 

5 80 

TRAN 

590 

TRAN 

600 

TRAN 

610 

TRAN 

620 

TRAN 

630 

TRAN 

640 

TRAN 

650 

TRAN 

660 

TRAN 

670 

TRAN 

680 

TRAN 

690 

TRAN 

700 
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DELT A = tt( 1 ) * XL 
CALL BUGPR ( 2> 

6001 CONTINUE 

DO 91 L=l*NES 

XKTC L>=T<L 1/11 606. 

T1=XKT(L) 

CALL SNDIL) 


A 30*46006 


C 

C 

c 

c 

c 

c 




c 

c 

c 


PARTITION FUNCTIONS FOR H, C* N, O ** 


94 IF< TIL >*GT* 1 5000* > GO TO 6 
** LOW TEMPERATURE ** 

SUMH=2* 0 

SUMC=9*0 + 5*0 * FXP(-1.264/T1) 

1 5*0 * E XP ( —4* 1 B3/T 1 ) 

SUMN =4 * 0 ♦ 10*0 *EXP<-2* 3S4/T1 » + 

SUMO = 9*0 + 5*0 * FXPI-l *975/Tl ) 

GO TO 7 

** HIGH TEMPERATURE ** 


+ EXPI-2.684/T1 ) + 


6* C *EXP< -3.576/T 1 > 


SUMH=2. 0 
SUMC =2.71818 
SUMN =5 *9 38 21 6 
SUMO = 1 1* 79563 
CONTINUE 
T 1 2= T1 2 
GH = 6.4994 
DO 5 K = l . 1 2 
GF=FHVC( K ) /T 1 
GHM=GH 

GH=EXP(~GF) *GF 


+ 6*40677 * T I L > / 1 • 

- 0*225593 * TILl/l* 
-0.317964 * TIL1/1.0 


0E4 -0*45466 * <T< L >/ U0E4 J **2 
0E3 + 0*015408 * ( T ( L ) / 1 *0E3 ) * * J 
E3 ■* 0.013765 * « T ( L 1 / 1 *0E3 i ** 2 


<GF**2 + 3*0 *GF +6.0 + 6.0/GF1 


TRAN 

710 

TRAN 

720 

TRAN 

730 

TRAN 

740 

TRAN 

750 

TRAN 

760 

TRAN 

770 

TRAN 

780. 

TRAN 

790 

TRAN 

800 

TRAN 

810 

TRAN 

820 

TRAN 

830 

TRAN 

840 

TRAN 

8S0 

TRAN 

860 

TRAN 

870 

TRAN 

880 

TRAN 

890 

TRAN 

900 

TRAN 

910 

TRAN 

920 

TRAN 

930 

TRAN 

940 

TRAN 

950 

ITRAN 

960 

TRAN 

970 

TRAN 

980 

TRAN 

990 

TRAN 1000 

TRAN 10 10 

TRAN 1020 

TRAN 1030 

TRAN 1040 

TRAN 1050 
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C 44 PLANK MEAN ABSORPTION COEFFICIENT FOR BAND INTERVALS <EQ*A3> 
C 

BEEC<K,L)=5.04E3 * CT124421 * (GHM-GH) 

BE =8 EEC (KiL) 

C 

C 44 ABSORPTION CROSS SECTIONS 4* 

C SOECIES — 


C 

N 

N2 

CO 

c 

0 

02 


C 

c 

C2 

C2H 

c 

H 

H2 

C3 


C 

SGH=0* 

SGN = 9. 

SGC=0. 

SGO = 0* 

SGCO=0 • 

SGC 2 =0 • 

SGO2=0. 

SGN2=0* 

SGH2=0 • 

SGC 3 =0 • 

SGC2H = 0. C 

GO TO (581 .582.5 83 *58A ,585 *586 * 58 7 ,588.589.59 G.S91.5921.K 

581 SGH=SIGMAI 2.4 .1. 0 ,0.0 . 1*0} * EXP < - 1 3* 56/T 1 > 

SGC=SIGMA< 3.78, 0.3. 0*04 88. 1.33) 4 EXP <- l 1 • 26/T 1 » 

SGN=SIGMA<4,22. 0.24. 0.0426, 4.51 * EXP ( - 14.54/T 1 ) 

SGO = SIGMA( 4, 22, 0.24, 0.0426, .8888889) * E XP< ~ 13. 61/T l> 

GO TO 38 

582 ZZHV =5 • 5 

SGC 2=8.0E— 18 4 EXP(-C.5/T1> + 3.0E-I8 

SGC 3=4. OF— 1 8 

593 CALL ZHV< ZZHV, ZZO.ZZN.ZZI ,ZZC> 

SGC= S I GMA 2( ZZHV * 1.33, 11.26. 3.79) * ZZC 4 SGC 

SGN = SI GMA 2 (ZZHV.4.50. 14.54, 4.221 4 ZZN 


4* TRAN 1060 
TRAN 1070 
TRAN 1080 
TRAN 1090 
TRAN 1 1 00 
TRAN 1110 
TRAN 1 1 20 
TRAN 11 30 
TRAN 1140 
TRAN 11 50 
TRAN 1160 
TRAN 1170 
TRAN 1100 
TRAN 1 1 90 
TRAN l 200 
TRAN 1210 
TRAN 1220 
TRAN 1230 
TRAN 12 40 
TRAN 1250 
TRAN 1 2 60 
TRAN 1270 
TRAN 1280 
TRAN 1290 
TRAN 1300 
TR AN 1310 
TRAN 1 320 
TRAN 1 330 
TRAN 1340 
TRAN 1350 
TRAN 1360 
TRAN 1 370 
TRAN1380 
TRAN 1390 
TRAN 1400 
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594 SG0=SIGMA2 CZZHV, *889, 13*61, 4*22) * ZZC 

595 SGH=SIGMA2 (ZZHV, 1*00, 13*56, 2*40) 

GO TO 38 

583 ZZHV^6*5 

SGC 2 = 1* OE— 1 8 

SGC0=3 *0F— 1 8 * EXP ( — 0* 7/T1 I 
GO TO 593 

584 ZZHV = 7*5 

SGC= 5* OE- 1 7 * EXP<-4* 18/T1 l/SUMC 

SGCO = 1 • 9£— 1 7 * EXP(-0*5/Tl> 

SG02 = 6 * OE— l 9 
SGC2H = 1.3E-18 
GO TO 593 

585 Z7HV=8*5 

SGC = 5* OE— 1 7 *EXP<-4* 18/T1J/SUMC + 

1 2*2 E-17* EXP(— 2*68/Tl)/ SUMC 

SGC0=2*5E- 1 7 
SG02 = 2* OE- 1 9 
SGC2H = 8.5E-19 
GO JO 593 

586 ZZHV =9 • 5 

SGC=S*0E-17 * E XP (-4, 1 8ZT1 ) /SUMC + 

1 2# 2E— 1 7 * EXP (-2,68/Tl )/SUMC 

SGCO = 5 * OE— 1 3 
SG0 2 = 1 ■ OE- 1 8 
GO TO 593 

587 SGN=3# 2E— 1 8 *T1 *E XP ( - 1 0 * 2/T l ) /SUMN 
SG02=6, OE— 1 9 

ZZHV=10* 4 

CALL ZHV( ZZHV, ZZO,ZZN,ZZI , ZZC) 

596 SGC=(8.5E-17 *E XP ( — 1 • 26/T1 ) + 2.2E-17 * EXP(- 2* 75/T 1 ) 

1 + 5* OE— 17 4 EXP(-4. 18/T1 ) ) /SUMC 

GO TO 594 

588 ZZHV=10,9 

CALL ZHV ( 2ZH V , Z ZO »ZZN» ZZI « ZZC ) 


TRAN 1410 
TRAN 1420 
TRAN 14 30 
TRAN 1440 
TRAN 1450 
TRAN 1460 
TRAN 1470 
TRAN 1480 
TRAN 1490 
TRAN1500 
TRAN 1510 
TRAN 1520 
TRAN 1530 
TRAN 1540 
TRAN 1550 
TRAN 1560 
TRAN 1 5 70 
TRAN 1580 
TRAN 1590 
TRAN 1600 
TRAN 1610 
TRAN 1620 
TRAN 1630 
TRAN 1 640 
TRAN 1 6 50 
TRAN 1660 
TRAN 1670 
TRAN 1680 
TRAN 169C 
TRAN 1700 
TR AN 17 1 0 
TRAN 1720 
TRAN 1730 
TRAN 1 7 40 
TRAN 1750 
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EXPC— 3*50 ) J/SUMN 

8.5E-17 * EXP<“1#26/T1 > + 2*2E-17 * EXPC-2.75/TI 

* EXP{ — 4* 1 8/T 1 ) ) /SUMC 
TO 594 


5.16E-17 * EXP{-3.50/Tl))/SUMN 


SGN=<5. 1 6E— 1 7 *E XP <—3*50/71 ) l/SUMN 
GO TO 596 
569 ZZHV=1 1® 6 

CALL ZHV( ZZH V » Z ZO • ZZN « ZZI *ZZC > 

SGN2=a»9F-18 
SGN= (5. 16E — 1 7 * 

598 SGC = (9» 9F — 1 7 + 

1 + 5* OE — 1 7 

IF (K,LT*11> GO 
GO TO 38 

590 ZZHV= 12*7 

CALL ZHV (ZZHV.ZZO.ZZNf ZZI *ZZC ) 

SGN2=2. OF- 1 8 
SGH2 = 2* 7E— 1 7 

599 SGN = (6.4E-17 * E XP ( -2* 30 /T 1 ) + 

l ♦ SGN 

60 TO 598 

591 SGH= 1* 1BF- 1 7/SUMH 
SG0=3o 6E-17/SUMO 
SGN2=1*0E-1 7 
SGH2 = 2* 7E— 1 7 

GO TO 599 

592 SGN=3* 5E-1 7/SUMN 
SGN 2 = 1* OE— 1 8 

GO TO 599 
38 CONTINUE 

FMUC(K«L>= SNDH<L)*SGH + SNDC<Ll*SGC ♦ SNDN (LI *SGN + SNDO(LI*SGO 

1 4- X MOL * CSN0N2 < Ll*SGN2 + SN002( L ) *SG02 ♦ 

2 SNDC2CL) *SGC2 + SNDH2 < L) *SGH2 + SNCC 0( L )*S GCO + 

3 SNDC 3 ( L ) * SGC3 4-SNDC2H < L »*SGC2H > 

IF { L*GT* 1 ) GO TO 6 

T A UC (K«L)=0« 

GO TO 5 

8 T A UC (KtL) =TA UC ( K » L — 1 ) + < YDC L > - YD <L- 1 ) »* 

1 <FMUC(K,L-1)+FMUC<K ,L)» * DELTA 


TRAN 1760 
TRAN 1770 
TRAN 1780 
TRAN 1 790 
TRAN 1800 
TRAN I 81 0 
JTRAN 1820 
TRAN 1 830 
TR AN 1 840 
TRAN 18S0 
TRAN 1860 
TRA'N 1870 
TRAN 1880 
TRAN 1890 
TR AN 1 900 
TRAN 1910 
TRAN 1920 
TRAN 1930 
TRAN 1940 
TRAN 1950 
TR AN 1960 
TRAN197C 
TRAN 198C 
TR AN 1990 
TRAN 2000 
TRAN 2010 
TRAN 20 20 
TRAN 20 30 
TRAN 20 40 
TRAN 20 50 
TR AN 2060 
TRAN 20 70 
TRAN2080 
TRAN 2090 
TRAN21 00 


273 



n n o 



5 CONTINUE 

IF (LINESoEQ.O) GO TO 91 

** FRACTIONAL POPULATION STATES FOR H, N, O, C ** 

CALL ZP <T1 . SUMN, SUMO, SUMH ,SUMC) 

C ** CALCULATION OF PARAMETERS FOR 9 LINE GROUPE5 ** 

C WN NUMBER OF LINES 

C FG — EFFECTIVE F— NUMBER 

C GP — EFFECTIVE HALF-WIDTH 

C 

C GROUP 1 

FG< 1 ,2 > = < 1.02 * ZPC { 5 1 + .795 A ZPCC6) + 0.114 * ZPC(7U 

1 /WN (1,2) 

GP ( 1 ,2 > = ( 9. 16E-1 1 * SORT <ZPC(5) 1 + 1.25E-10 * SQRTCZPCC6)) 

1 +2.55F-10 * SORT! ZPCC7 ) ) ) **2 /(FG(1.2»* WN<1,2)**2> 

FG( 1 . 3 > =< 1.040 * ZPNC4) + 1.29 * ZFNC5) + 0.00 *ZPNC6>> 

1 /WN (1,31 

GP < 1 .3 > = ( 6, 6EE-1 1 * SQR T ( ZPN < 4 ) ) + 1.71E-10 * SQRT<ZPN(5>> 

1 + 4.00E-10 * SQRT< ZPN( 6 ) ) ) **2/( FG( 1 ,3 ) * WN< 1 , 31**2) 

FG( 1 ,4 I =( 1.00 * ZPG<5> + .978 * ZP0C6) l/WN( 1»4) 

GP ( 1 ,4 } =( 3.90E-1 1 * SORT ( ZPQ (5 ) ) + 9.68E-11 * S QRT < Z PO< 6 > )> * * 2 

1 /(FG(1,4) * WN<1.4)**2) 

FMJLI 1«L»=FMUC(1 * L ) 

C GROUP 2 

FG(2, 1 1=0. 80S * ZPH (2)/WN(2«l> 

GP (2,11 = 2.3 7E— 1 0 * 2.37E-10 * ZPH ( 2 > / { FG < 2 , 1 ) * WN<2,1)**2> 
FGC2,2)=(0.00E-2 * ZPC (5 ) + 6.71E-2 * ZPC( 6 ) )/ WN( 2 , 2 ) 

GP <2,2 1 =( 0. OOE— 1 2 * SQRT(ZPC<5) > ♦ 7.15E-11 * SORT ( ZPCC 6) ) 1**2 

1 / ( FG ( 2 » 2 1 * WN<2,2>**2) 

FG(2 ,3 )=(0. 047* ZPN<4) ♦ 2.85E-2 * ZPN < 5 ) > / WN < 2 , 3 > 

GP ( 2 ,3 1=< 1 . 1 IE-1 0 * SQRT(ZPN(4)> + 6.07E-11 * SORT C ZPN ( 5 ) ) ) * * 2 

1 /CFG (2*3) * WN<2,3)**2» 

FGC2.4 »=(.0217 * ZPOC4) + 8. 2SE-2 * ZPO< 5 > > /W NC 2 » 4 » 

GP(2,4> = (2.61E-11 * SORT ( ZPO ( 4 ) ) ♦ 7.19E-11 * S QRT < ZPO < 5 ) > »* * 2 


TRAN2U0 
TRAN2120 
TRAN2130 
TRAN 2 1 40 
TRAN 2 1 50 
TRAN 21 60 
TRAN2170 
TRAN 2 1 80 
TRAN 2 1 90 
TRAN2200 
TR AN 22 1 0 
TRAN 2220 
TRAN2230 
TRAN 2240 
TRAN2250 
TRAN 2260 
TRAN2270 
TRAN 2280 
TRAN2290 
TRAN 2300 
TRAN 2310 
TRAN 2320 
TRAN2330 
TR AN 2340 
TRAN 2350 
TRAN2360 
TRAN2370 
TRAN2380 
TRAN2390 
TRAN240O 
TRAN2410 
TR AN 24 20 
TRAN2430 
TRAN 2440 
TRAN2450 
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c 


c 


c 


c 


t / (FG< 2*41 * WN(2, 4)4*2) 

FMUL(2»L)=FMUC C i*L» 

GROUP 3 

FG(3»2)-(7.29E-2 * ZPCC2) 4 6.76E-2 4ZPC < 3 ) >/ WN ( 3 , 2 ) 

GP(3.2 )=<9.08E-12 * SQRT(ZPC<2)) 4 8.75E-12 * S QRT < 7 PC (3) ) 1**2 

1 /(FG(3#2) * WN (3 «2 >**2 > 

FMUL ( 3 * L ) =F M UC < 2 • L I 
GROUP 4 

FG<4,2> = < 1.05 * ZPC(l) 4 1*10 E—2 *ZPC ( 2 ) 4 0.150 * ZPC(3)) 

1 /WN (4*2) 

GP ( 4 ,2 ) =( 9. 57E-12 * SQRTlZPC(l)) 4 4.86E-12 * SQRT(ZPC(2)> 

1 4 5.93E-10 * SORT ( ZPC ( 3 ) ) ) **2/ ( FG < 4 * 2) 4 WN<4,2>**2> 

FG<4.2)=( 7. 40E-2 * ZPN(2> 4 6.34E-2 * Z FN < 3 ) > / WN( 4 . 3 ) 

GP ( 4 »3 )=( 8*2 2E— 1 2 * <50RT ( ZPN ( 2 ) > + 7.60E-12 * SQRT< ZPN ( 3 )> >**2 

1 /CFG <4 » 3 ) * WN<4«3)**2) 

FMUL ( 4 , L > =F MUC (4.0 
GROUP 5 

F G ( 5 » 2 >=(0*329 * ZPC ( 1 ) 4 0*118 * ZPC < 2 ) 4 0.226 * ZPCC 4 ) ) 

1 /WN ( 5 « 2 ) 

GP( 5 ♦? )=< 3.65E-1 1 * SORT ( ZPC ( 1 ) ) 4 5.77E-1C 4 SQRT(ZPC(2>) 

1 4 6.56E-1 1 * SQRT(ZPC(4) > ) **2/ ( FG ( 5 .2 > * WN(5.2)**2) 

FG { 5 . 3 >=0. 10 S * ZPNC3) /WNC5 .3) 

GP ( 5 .3 ) =3. 09E— 1 1 * 3.C9E-11 4 ZPN < 3 )/ ( FG ( 5 . 3 > 4 WN(5.3>**2) 

FGC5.4 )=4* 71E-2 4 ZPOC 1 > /WN (5 .4 ) 

GPC5.4 )=5.08E-12 4 5.08E-I2 4 ZPGtl )/(FG(5*4) 4 WNC5.4)*42) 

FMUL ( 5 »L ) =FMUC ( 6» L ) 

GROUP 6 

FG<6„1 >=0.416 4 ZPH<1 )/WM6 .1 ) 

GPC6.1 )=3. 02E-1 1 4 3.02E-11 4 ZPHC 1 ) / C FG < 6 « l ) 4 WN(6.1)**2) 

FG(6«2 )=8. 65F-? * ZPC ( 1 > /WM 6 . 2 ) 

GP ( 6 , 2 ) =2. 35E- 1 0 4 2®35E-10 4 ZPC < 1 ) / ( FG( 6 , 2 ) 4 WN(6«2)**2> 

FGC 6*3 )-( 0. 1 e4 * ZPN ( l ) 4 0.29C * ZPNC2) 4- 8.52E-2 * ZPN ( 3 ) ) 

1 /WN (6*3) 

GP ( 6 * 3 ) = ( 1.0 7E — 11 * SORT (ZPN(l)) 4 4.28E-11 * SQRT(ZPN(2)> 

1 4 2.09E-10 * SORT ( ZPN ( 3) ) ) **2/(FG(6« 3) * WN(6»3)**2> 


TRAN 2460 
TRAN2470 
TRAN 2480 
TRAN 2490 
TRAN2500 
TRAN2510 
TRAN2520 
TRAN 2530 
TRAN2540 
TRAN2550 
TRAN2560 
TRAN 2570 
TRAN2580 
TRAN 2590 
TRAN 2600 
TRAN 2610 
TRAN 26 20 
TRAN2630 
TRAN2640 
TRAN2650 
TRAN2660 
TR AN 2670 
TRAN 2680 
TRAN2690 
TRAN2700 
TRAN2710 
TRAN 2720 
TRAN 2 7 30 
TRAN ?7 40 
TRAN 2750 
TRAN 2760 
TRAN 2770 
TRAN2Z80 
TRAN2790 
TRAN2800 
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c 


c 


c 


FG<6 ,4 )=<« 120 * ZP0<2) 4- 0.151 * ZPO { 3 ) ) / WN (6 , 4 ) 

GP(6 ,4 >=<8.05E-I2 * SORT CZPO( 2 I I 4- 9.93E-12 * SORT! ZPO< 3 )) >442 

1 / < FG (6.4) * WN<6.4)**2> 

FMUL <6.L> =FMUC (7.L) 

GROUP 7 

FG( 7 .2 )=t 4* 51E-2 4 ZPC (1 ) 4- 0.705 4 ZPC ( 2 > > /W N( 7 , 2 ) 

GP <7 » 2 ) = ( 6 » O 7E — 1 0 4 SQRTCZPC(1>> 4- 2.10E-10 4 S QRT ( ZPC C 2 )) ) 442 

1 /(FG17.2) * WN<7. 2)442) 

FG<7.3 >=(0. 454 * ZPN ( I > 4- 9.66E-2 4 ZPNC2) 

I * 0.178 4 ZPN<3 > >/WN{7 .3) 

GP< 7 ,3 ) ={ 2. 71E-I2 4 SORT < ZPN ( 1 > ) + 2.34E-10 4 SQRT(ZPN<2>) 

1 4- 2.46E-11 4 SORT<ZPN(3) ) >442/ <FG<7.3)4 WN(7, 3)442) 

FG < 7 # 4 ) =4. 2 3E- 2 * ZPO( 3> /WM7 *4 > 

GP { 7 ,4 )=2, 52E-1 t 4 2.52E-11 4 ZPO < 3 > / < FG { 7 , 4 ) 4 WN<7, 4)442) 

FMUL ( 7.L) =FMUC ( 9. L ) 

GROUP e 

FG<8, 1 )=0. 108 4 ZPH(1 ) /WN<8 .1 ) 

GP< 8. 1 ) = l. 32E-1 0 * 1.32E-10 4 ZPH(t) 

1 / ( FG (8*1) 4 WN (8*1) 442 ) 

FG< 8 .2 ) =< 0. 379 4 ZPC(l) 4- 1.05 4 ZPC< 3 ) )/WN (8 , 2 ) 

GP<8.2)=( 1.95E-11 * SORT <ZPC( 1 ) ) + 1.27E-10 4 SORT ( ZPC( 3 ) ) )442 

1 /(FGC8.2) 4 WN (8*2) 442 ) 

FG< 8.3 ) = < 0. 1 55 4 ZFNd) 4- 0.142*ZPN<2> + 3. 75E-2 4 ZPN< 3 > ) 

i /wn<8.3) 

GPC8.3 )=< 2.98E-11 * SQRT(ZPNd)) + 7.08E-11 4 SQRT<ZPN<2>) 

1 +■ 1.33E-10 » SQRT<ZPN<3) ) ) 442/ < FG< 6 . 3 > 4 WN(8. 3)4*2) 

FG( 8.4 ) = ( 0. 1 46 4 ZPD(1 ) + 8. 6 1 E-2 4ZPO C 2 ) 

1 4- 9.33E-2 4 ZPOC3) >/WN<8,4> 

GP < 8 .4 > = < 1. 97E-1 0 * SORT ( ZPO C 1 I ) 4- 1.80E-11 4 .S ORT ( ZP0( 2 > > 

1 4- 8.13E-11 * SORT < ZPO < 3 ) ) ) 442/ <FG(8.4) 4 WN(8, 4)442) 

FMUL (8.L) -F M UC < 1 0 . L ) 

GROUP 9 

FG ( 9 * 2 ) =2. 95 4 ZPC ( 2 ) / WN (9 . 2 ) 

GP(9,2)=5. 85E-12 4 5.85E-12 4 ZPC ( 2 ) /( FG (9 . 2 ) 4 WN(9, 2)442) 
FG(9»3 )=<0.224 4 ZPN(l) 4 2.92E-2 4 ZPN < 2 > ) /WN < 9 , 3 > 


TRAN2810 
TRAN2820 
TRAN2830 
TRAN2840 
TRAN2850 
TRAN2860 
TRAN 2870 
TRAN2880 
TRAN2890 
TRAN 2900 
TRAN 2910 
TRAN 2920 
TRAN2930 
TRAN 2940 
TRAN2950 
TRAN 2960 
TRAN2970 
TRAN2980 
TRAN 2990 
TRAN 3000 
TRAN3019 
TRAN 30 20 
TR AN 30 30 
TRAN 30 40 
TRAN3050 
TRAN 3060 
TRAN3070 
TRAN3080 
TRAN309O 
TR AN 3100 
TRAN31 10 
TRAN3120 
TRAN3130 
TRAN3140 
TRAN3150 
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GPI9.3 )=(3*41E-10 4 SQRTIZPNIlll + 1,40E-IO * S QRT C ZPN C 2 1 ) )**2 

1 /(FGI9.3) 4 WN<9»31*42> 

FG<9»4)=( So 24E — 2 * ZPOllI 4 7.22E-2 * 2P0(2> 

1 + 6*04E-2 * ZPOI3) 1/WN(9,4 1 

GP I 9 * 4 1 = I 5« 7 €E— 1 2 4 SQFTIZPOltll + 7.20E-11 * SQRTCZPOC21) 

1 + 8.05E-11 4 SQRTIZP0I3) 1 )442/< FGI9.41 * WNt9«4)442> 

FMUL(9,U=FMUC(ll.L) 

C 

C 4* PLANCK FUNCTION 44 
C 

00 9 J=1.NHVL 

BEELI J,L )=5« 04E3 4 HVJIJ1443 / (EXP (HV J< Jl/Tl ) - 1.0) 


TRAN3160 
TRAN 31 70 
TRAN3180 
TRAN 31 90 
TRAN 3200 
TRAN3210 
TRAN 3220 
TRAN3230 
TRAN 3240 
TR AN 3250 
TRAN3260 
TRAN 3270 


C 

C 44 INDUCED EMISSION FACTOR (EQ 811 4* 

C 


TRAN3280 
TR AN 32 90 
TRAN 3300 


SSM< J, 1,L)=1* 10E-164SNOH ( L 1 4 ( 1 „0 -E XP I -HV J I J 1 /T 1 1) 4 

SSM( J, 2,L)=1« 10E-164SNDC ( L) 4 ( 1 *0 -E XP( -HV J ( J 1 /T 1 1 ) * 
SSMIJ«3»L)~!*1 OE — 1 6*S NON (L)4(l#0— E XP( —HV J ( J 1 /T 111 4 

SSMI J*4,L) = !• 10E-164SNDO (L14(|«0— EXP( — HV J ( J 1 /T 1 1 1 4 
DO 10 M=1.4 

GGMI J* M,L> =GP( J ,M> 4 SNDEIL) 4 ( T I L ) / 1 • 0 E4 > 4*0. 25 

1 + loOE-6 
IF (L #GT* 1 ) GO TO II 
ETAMI J * M » 1 1 = 0» 

SBM < J » M * 1 ) = Oo 
GO TO 10 

11 ETAMI J.M,L)=ETAM( J,M*L-1 )+ ( YD ( L ) - YD < L- 1 11 
. 1 4 ( SSMI J t M.L-l 1 4 GGM(J f M,L-l) + SSM(J.M.L) 

2 4 DELTAZ3»141S9265 

SB MI JtM»L)=SBM(J*M,L— 1 1 + { YO ( L 1 - YD( L- 1 > > 

1 * (SSMI J.M.L-l l+SSMC J.M.Ll ) 4 DELTA 

10 CONTINUE 

IF I L* GT • 1 1 GO TO 12 
TAUL I J» 1 1=0* 

GO TO 9 


TRAN331 0 
TRAN 3320 
TRAN3330 
TRAN3340 
TRAN 3350 
TRAN 3360 
TRAN 3370 
TRAN3380 
TRAN3390 
TRAN 3400 
TRAN 34 1 0 
TRAN3420 
4 GGMI J, M ,L 1 1TRAN3430 
TRAN 3440 
TRAN3450 
TRAN3460 
TRAN3470 
TR AN 3480 
TRAN3490 
TRAN 3500 


FGI J * 1 ) 
FG( J» 21 
FGI J. 31 
FGIJ.41 
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1 2 

TAUL<J.L)=TAUL( J.L-l ) + < YD < L >-YD ( L-l ) ) 

TRAN 3510 


1 * (FMULI J.L-1 >+FMUL(J.L) > * DELTA 

TRAN 3520 

< 3 

CONT INUE 

TRAN 3530 


IF C ID Go NE » 99 > GO TO 91 

TRAN 3540 


CALL 8UGPR (7) 

TRAN 3550 

C 


TRAN 3560 

9 1 

CONT INUE 

TRAN3570 


IE Z= IE Z-fr 1 

TRAN'3580 


ETZIIEZ>=1*0 

TRAN 3590 

C 


TRAN 3600 

c ## 

CONTINUUM - CONTINUUM FLUX DIVERGENCE CALCULATION ** 

TRAN 36 1 0 

c 


TRAN 3620 


DO 3 CO K = 1 , IEZ 

TRAN 3630 


DO 3 1 LK -1 .NES 

TRAN 3640 


I =LK 

TRAN 3650 


NUT ( K ) =1 

TRAN 3660 


IF (ABSCETZ(K)— ETAILK) ) - 1.0E-5) 300*300,31 

TRAN 3670 

3 1 

CONT INUE 

TRAN360O 

30 0 

CONT INUE 

TRAN 3690 


DO 1612 J = 1 , 9 

TRAN 3700 


OCLP< J ) =0* 

TRAN 3710 


QLCP I J ) =0, 

TRAN 3720 


QLLP< J)=0* 

TRAN 3730 


DO 1612 L — 1 » NE S 

TRAN3740 


FM{ J ,L >=0« 

TRAN3750 

1612 

FP(J,L)=0, 

TRAN3760 


DO 1613 L— 1 * IEZ 

TRAN3770 


QCL(L>=0* 

TRAN3780 


QLC( L) =0« 

TRAN 3790 

161 3 

QLLCL)=0» 

TRAN 3800 


DO 49 I YY-= 1 , IE Z 

TRAN 38 1 0 


I Y =N UT { I YY) 

TRAN 3820 


DO 20 K=1 » 1 2 

TRAN3830 


FMC ( K , IY)=0. 

TRAN 3840 


FPC (K, I Y ) = 0« 

TRAN3850 



c 

c ** 
c 


c 

C ** ' 

c 


40 

44 

C 

C ** 

C 


c 

c ** 

c 


42 

C 

C ** 

c 

4 1 


20 

C 


IF { IYbEQ* 1) GO TO 44 
DO 40 L=1.IY 


MINUS EM I SSI VI TY FUNCTION (EQ 47) * 


EM(K.L)=1.0 - EXPITAUCCK.D-TAUCCK.IY) ) 

IF ( L.EQ. I ) GO TO 40 


MINUS CONTINUUM FLUX (EQ 46) ** 


FMC ( K » I Y ) =FMC ( K « I Y ) - CEM (K , L ) -EM I K »L- 1 ) > 

* (BEEC (K.L-l >+BEEC(K,L) )/2. 

CONTINUE 

IF CIYoEQ.NES ) GO TO 41 
DO 42 L=IY»NES 

POSITIVE EM I S SI V I TY FUNCTION (EG 47) ** 

EP(K,L>=1.0 - EXP(T AUC (K*IY)—T AUC ( K *L ) ) 

IF (L.EQ.IY) GO TQ 4? 

POSITIVE EMISSIVITY CONTINUUM FLUX (EQ 46) ** 

FPC(K, IY)=FPC( K,I V) + (EP(K,L)-EP(K.L-1) ) 

* <BEEC(K.L-1 >+8EEC(K,L> >/2. 

CONTINUE 


POSITIVE EMISSIVITY CCNTINUUM FLUXO I VERGENCE ( EQ 51) *♦ 


QCCP(K) =6# 2821 853 * 
(FMC(K.IY) 
FMC(K,I Y)=FHC(K,IY) 
FPC ( K ♦ I Y ) =FPC (Ktl Y) 
CONT INUE 


FMUCCK.IY) * 
+ FPC<K,IY) 

* 2.14159265 

* 2.14159265 


2.04 0EEC( K« IY ) ) 


TRAN3860 
TRAN3B70 
TRAN3B80 
TR AN3890 
TRAN 3900 
TR AN 3910 
TRAN3920 
TRAN3930 
TRAN 3940 
TRAN 3950 
TRAN3960 
TRAN 3970 
TRAN3980 
TRAN 3990 
TRAN 4000 
TRAN4010 
TRAN4020 
TRAN 40 30 
TRAN 4040 
TRAN40 50 
TRAN4060 
TRAN4070 
TRAN40 80 
TRAN 40 90 
TRAN4100 
TRAN41 10 
TRAN4120 
TRAN41 30 
TRAN 41 40 
TRAN4150 
TRAN41 60 
TRAN41 70 
TRAN41 80 
TRAN41 90 
TRAN4200 


N> 

>>4 

vo 



c *4 
c 


2 1 

c 

c ** 
c 

c 

c ** 
c 


900 1 
900 2 


DEBUG PRINT A* 

IF < IDG.NEe99> GO TO 21 
CALL BUGPR <3> 

QCC < I Y V 1 =0 . 

DO 24 K=1 , 12 

LINE AND CROSS TERM FLUX DIVERGENCE CALCULATION ** 

QCC< IYYl=OCC(I YY) + QCCP(K) 

IF <LINES.EO.OI GO TO 1614 

INTEGRATION FRCM 1 TO I Y ** 

IF < IY.EQ* 1 ) GO TO 68 
DO 65 J~1 . 9 
DO 66 L=1 t l Y 
W I M = 0. 

SUM! =0« 

SUM2=0. 

DO 67 M = l,4 

DIF=ETAM(J«M*I Y> - ETAM{ J.M.L) 

OIFSBM = S8M(JtM»IY)-SBM<J»M»Ll 

IF (ABSCDIFSBM) *LT. l.E— 10 ) OIFSBM = 1.E-I0 

BETAM=OIF / < OIFSBM > * 3.14159265 

IF <L.E0*IY» BETA M=GGM ( J ♦ M « L > 

IF (ABS(DIF )«GT. 1. E— 1 0) GO TO 9001 
TM = l.E-10 
GO TO 9002 
CONTINUE 

TM -D IF /2.0/BET AM* *2 
RRM=DI F/2. 0/GGM < J ,M» I Y)**2 

WWM=€o 2831 853 * WN<J,M> * BETAM * GAMMA(TM) * TM 
SUM 1 =SUM 1 * GAMMA(TM) * WN < J « M > A SSM<J,M*IY» 

SUM2=SUM2 ♦ XLAMB(RFM) * WN(J.M) * SSM<J.M»IY) 


TR AN 42 10 
TR AN 4220 
TRAN 4230 
TRAN4240 
TRAN4250 
TRAN 4260 
TRAN 4270 
TRAN 42 80 
TR AN 4290 
TRAN4300 
TRAN431 0 
TRAN 4320 
TRAN 4330 
TRAN4340 
TRAN4350 
TRAN4360 
TRAN4370 
TRAN4380 
TRAN 4390 
TRAN4400 
TRAN4410 
TRAN4420 
TRAN 44 30 
TP AN 4440 
TR AN4450 
TRAN4460 
TR AN 4470 
TR AN4480 
TRAN4490 
TRAN4500 
TRAN4510 
TRAN4520 
TRAN4530 
TRAN4540 
TRAN4550 



nnn n n n nnn 


67 WIM=WIM + te/WM 
ALPHAM=WIM/OJ( J» 

C 

C ** OVERLAPPING LINE CALCULATIONS ** 

C 

C 

C F* GROUP EQUIVALENT WIDTHS (EQ.88) ** 

C 

«MM( J*L)=DJC J) * PHIKALPHAM) * EXP <T AUL < J « L > -T AUL< J ♦ I Y > ) 

** GROUP GAMMA LINE TRANSPORT FUNCTION <E0.92> ** 

GMM( J»L)=PHI2( ALPHAW) * SUM1 

** MINUS EMISSIVITY FUNCTION FOR LINES tEQ*47) ** 

EFM<J,L)=1.0 - F XP (T AUL < J «L) — T AUL ( J * I Y > ) 

66 XL MM ( J iL ) =PH I 2 ( ALPHA M ) * SUM2 

65 CONTINUE 

IF ( IDG*EQ» 99) CALL BUGPR(t) 

IF ( I D G« EQ e 9 9) CALL BUGPR <4> 

68 IF (IY*EQ.NES) GO TO 72 

** INTEGRATION FROM IY TO NE S ** 

DO 69 J = l,9 
DO 70 L=IY.NES 
WIP-0® 

SUMl =0. 

SUM2=0, 

DO 71 M=I,4 

DIF-ETAMI J ,M«L ) - E: T AM ( J » M ♦ I Y ) 

DIFSBM = SBM( J»M,L)-SBM( J, M*IY» 

IF(A8S(OIFSBM).LT. UE-10) DIFSBM = l.E-10 
BETAP=DIF / { DIFSBM ) « 3« 14159265 


TRAN 4560 
TRAN4570 
TRAN 45 80 
TRAN4590 
TRAN4600 
TRAN4610 
TRAN4620 
TR AN 4630 
TRAN4640 
TRAN46S0 
TRAN4660 
TRAN4670 
TR AN4680 
TR AN 4690 
TRAN4700 
TR AN 47 10 
TRAN4720 
TRAN4730 
TRAN4740 
TRAN4750 
TR AN4760 
TRAN4770 
TRAN 4780 
TR AN4790 

TR AN48CC 
TR AN481 0 
TRAN4820 
TRAN 4830 
TR AN4840 
TRAN48S0 
TR AN486" 
TR AN4870 
TRAN4880 
TR AN4890 
TRAN4900 
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900 3 
900 4 


7 1 


C 

c #* 
c 

70 

69 

C 

C ** 
c 

72 


IF < L*EQ« I Y) BETAP=GGM< J,M,L> 

IFIABSIDIF )*GT. 1.E-I0) GO TO 9003 
TP = leE-10 
GO TO 9004 
CONTINUE 

TP=DIF/2,0/BETAP4*2 
RRP=DIF/2.0/GGW( J«M. I Y 1*42 

WWP=6e 2831 853 * * BETAP * GAMMA(TP) * TP 

SUM 1 =SUM 1 + GAMMAITPI 4 WN(J.M) 4 SSM(J t M«IY) 

SUM2=SUM2 + XLA MB <RFP) * WN( J«M) * SSM<J,P«IY) 

W IP=WI P+WWP 
ALPHAP=WIP/D J< J » 

WPP{ J,L )=0 JC Jl 4 PHIl(ALPHAP) 4 EXP (T AUL < J . I Y )-T AUL< J . L > ) 

GPP { J* L ) =PHI 2( ALP HAP ) * SUM1 

POSITIVE EMISSIVITY FUNCTION FOR LINES <EO*47) ** 

EEP(J.L) = loO - E XP< T AUL < J • I Y > -TAUL ( J .L ) ) 

XLPP < J, L) =PH 12 ( ALPHAP> * SUM2 
CONT INUE 

DEBUG PPTNT ** 

IF ( IDG.E0.99) CALL 8UGPR <5> 

DO 80 J = 1 * 9 
ASM1 =0 • 

A SM 2 =0 « 

FM ( J .1 Y>=0. 

IF ( IY .EQ* I ) GO TO 8! 

DO 82 L =2 » I Y 

FM(J,IY)sFM( J,I Y) - < WMM< J ,L> -WMM ( J,L-1 ) > 

4(BEEL(J*L— 1 >+BEEL(J«LI ) ♦ 1.5707963 
IF ( LoEQ* I Y) GO TO 82 

A SM 1 =A SMI - (EEW( J ( L)-EEW{ JiL-1 >) 

4 < B EE L ( J » L— 1 ) * XLMMJ.L-!) + BEEL(J.L) * XL MM < J • L ) ) / 2 • 


TRAN4910 
TRAN4920 
TRAN4930 
TRAN 4940 
TRAN4950 
TRAN4960 
TRAN4970 
TRAN4980 
TRAN4990 
TRAN5000 
TRAN5010 
TRAN5020 
TRAN 50 30 
TRAN 50 40 
TR AN 50 50 
TR AN 50 60 
TRAN507O 
TRAN5O80 
TRAN5090 
TR ANSI 00 
TRAN 51 10 
TR AN 51 20 
TRAN 51 30 
TRAN 51 40 
TR AN51 50 
TR AN 5 1 60 
TRAN5170 
TRAN 5 1 80 
TRAN 51 90 
TRAN 5200 
TRAN 52 1 0 
TRAN 5220 
TRAN5230 
TRAN 5240 
TRAN52 50 
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ASM2=ASM2 - <XLMM< J. L) -XLMM ( J . L-l 

1 * (BEELCJ.L-l) * E XP <T AUL < J 

2 # EXP < TAU1- (J«L) — TAUL ( J . I Y ) ) 

82 CONTINUE 
81 ASPl=Oo 

ASP 2=0* 

iyp=iy+i 

IF IIY.EQ.NES) GO TO 83 
DO 84 L=IYP.NES 

FP ( J • I Y>=FP( J. I Y) + < WPP< J »L> *«PP 

1 * (BEE L ( J » L— 1 ) +BEELI J.L)) * 

IF (L.EQ.IYP) GO TC e4 

ASP1=ASP1 + <EEP<J.L)-EEP< J.L-1 > ) 
l * <BEEL<J.L-1) * XLPP<J.L-1 

A SP2 =A SP2 + <XLPP< J.L)~XLPP< J.L-1 

1 (BEEL(J.L-l) * E XP ( T AUL ( J « I 

2 * EXP<TAUL< J.IY)-TAUL< J.L) ) 
84 CONTINUE 

83 QL CP < J ) =2o 0 * FMULIJ.IY) * CFM(J.IY 
SUMS=1 • 0 


) 1 

,L-1)-TAUL<J.IY) » 
1 / 2*0 


+ BEEL(J.L) 


< J.L-1 I > 
1.5707963 


) + BEEL (J.L) * XLPP< J.L) 1/2.0 
) ) * 

Y >-TAUL< J. L- I >) 

)/ 2*0 

)+FP< J. IY) ) 


BEELI J.L ) 


TRAN5260 
TRAN 5270 
TRAN5280 
TRAN5290 
TRAN 5300 
TRAN 5310 
TRAN5320 
TRAN 5330 
TRAN 5340 
TRAN 5350 
TRAN 5360 
TRAN5370 
TRAN 5380 
TRAN 5390 
TRAN5400 
TRAN 5410 
TRAN 5420 
TRAN 5430 
TRAN544C 
TRAN 5450 


SUMT=0o 

00 86 M = 1 * 4 

Bfi SUMT=SLMT 4- SSM(J.(W,rv) * WN(J.M) 

ATM1=0. 

IF (lY.NEol) ATM1 =<BEEL( J.IY-1 )+BEEL< J.IY) ) /2.0 * EEM(J.IY-il 
1 * XLMM < J » I Y— 1 ) 

ATP 1 =0o 

IF< IY.NE.NES) ATP1 =<BEEL< J, I Y4-1 )4-BEEL< J. IY) 1/2.0 *EEP(J,IY+1> 
1 A XLPP(J.IYTI) 

QCLP < J )=6« 2831 853 * SUMS * < ASM1 + AS PI 4- AT M 1 * ATP 1 > 

IF (IY.EO.l) ATM2=-BEEL< J.IY) * SUMT 

IF <IY.NE.ll ATM2= f (BEEL <J. IY— 1 ) -BEEL < J « I Y ) ) A GMM(J.IY-l) 

1 - BEEL < J » I Y— 1 ) * XLMM <J» IY — 1) 

IF < IY.EO. NE S ) ATP2=-BEEL( J.IY) A SUMT 

IF ( I Y. NE . NE S ) A TP2 = < BEELtJ.IY+l ) -BEELI J.IY) ) A GPP<J.IY + 1) 


TRAN 5460 
TR A N 54 70 
TR4N5480 
TR AN 54 90 
TRAN5500 
Tran 55 1 0 
TRAN 5520 
TRAN 5530 
TRAN 5540 
TRAN5550 
TRAN5560' 
TRANS570 
TRAN5580 
TRAN 5590 
TRAN5600 
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n r> 


1 - BEEL<J»IY+1> * XLPPtJ.IY+n 

QLLP< J )=6, 2831 653 * SUMS*<-ASM2-ASP2+ATM2+ATP2) 
80 CONTINUE 

QCL ( IYY) — 0 * 

QLC ( I Y Y ) =0 • 

QLL ( IYY)=0« 

DO 85 J=1 ♦ 9 

QCL ( I Y Y ) =QCL (IYY) + QCLP(J> 

QLC (IYY) =QLC (I YY) ♦ QLCP(J> 

85 QLL( I YY) =QLL ( I YY) + QLLP(J) 

161 4 CONTINUE 

DON ( IYY) =— ( QCC (IYY)+QCL( IYY) +QLCC IYY) +QLL ( IYY )> 

** OE9UG PRINT ** 

C 

IF { ID G« EQ • 0 ) GO TC 49 
CALL 3UGPRC6) 

49 CONTINUE 
IEZ= IE Z- I 
DO ( 1 >=OQN( 1 ) 

L = 2 

DO 1 N =2 « NE S 
DO 2 1=2. IEZ 
NP = I 

IF <ETZ< I > .GT.ETA (N) ) GO TO 3 

2 CONTINUE 

3 NN =NP— l 
AA =0 *0 

ZB = (DQN(NN,)-DQN(NP> ) / ( ETZ ( NN) -ETZ < NP ) ) 

CC =D QN { NN ) - ZB * ET Z < NN ) 

DQ(N)=AA * ETA(N)**2 + ZE * ETA ( N ) + CC 

GO TO 1 

4 OQ(N >=DQN(NN> 

1 CONTINUE 


TRAN561 0 
TRAN5620 
TRANS630 
TRAN 5640 
TRAN565C 
TR AN 5660 
TR AN5670 
TR AN5680 
TRAN5690 
TR AN 5700 
TRAN5710 
TRAN5720 
TR AN 57 30 
TRAN 5740 
TRAN5750 
TR AN 57 60 
TRAN5770 
TRAN5780 
TRAN 5790 
TRAN5800 
T R AN 58 1 0 
TRAN5820 
TRAN 5830 
TRAN5840 
TR AN 5850 
TRAN5860 
TRAN5870 
TRAN 5880 
TRAN5890 
TR AN 5900 
TR AN 59 1 0 
TRAN5920 
TRAN5930 
TRAN5940 
TRAN 5950 
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c ** 

250 


NON-DI MENSIONALI ZE ECU ** 

DO 2S0 1=1, NES 
TC I > = TCI ) / TO 

EC II = (<DQ(I)*XL >/CRINF*UINF**3) > *20866t,0 *RZ9 

RETURN 

END 


TRAN5960 
TRAN 5970 
TRAN 5980 
TRAN5990 
TRAN6000 
TRAN60 10 
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SUBROUTINE TRANS2 


COMMON /SFLUX/ QRI(3) 

COMMON /YL/ETA ( 60) ,Y0ND(60 ) 

COMMON /FRSTRM/ U INF, RINF, UINF2, R • RE* LXI* I TM ♦ I EM, 
COMMON /TRN/ NUT(60>» FMC(12,60>, FPC(12»60>. 

l FM(9 o60), F P ( 9 «60 ) , LINES 

COMMON /FINV/ NHVL » N I H VC »F H VC ( 12) »DJ<9) * HV J(9 )»Z KZ 
COMMON /TEST /E T Z ( 60 ) »IEZ 

COMMCN /NUMDFN/ SND02(60>* SNDN2(60>* SNDO(60), SNONC 60 ) ♦ 
l SNOE < 60 ) , SNDC( 60 } , 

l SNDH ( 60 ) * SN0C2 ( 60 ) , SNDH2(60>, SNOCOI60), 

3 SNDC3(6C ) ,SN0C2H(60» 

COMMCN /SPEC/ MF, XMOL 
DIMENSION ETOUT ( 3 > 

NETA=NES 
ETOUT( l >=0,0 
ETOUT ( 2) =0* 5 
ETOUT ( 3 > = 1 « 0 
NOUT ~3 


COMMCN 


OUTPUT FLUX 


WR I TE 
WR ITF 


(6,600 > 
(6,603 ) 


R ITF (6,603) (ET A ( I ) • SNDN2 ( I ) » SND02 ( I ),SNDN( I) ,SNOO( I ), 

SNDE ( I ) • SNDH< I > , 

SNOC ( I ) , SNOC2 ( I) ,SNDH2( I) ,SNOCO( I ) ,SNDC3( 
SNOC 2H ( I ) , 1 = 1 *NET A ) 

CONTINUUM CONTRIBUTICN TO THE SPECTRAL FLUX ** 


WRITE (6,4102> 


DO 8040 K = 1 e NOUT 
DO 804 1 LK=1 ,NES 
NUT( K> =LK 

IF ( AB S ( ETOU T{ K ) — E TA(LK) ) - 1.0E-05) 3040*80 40,8041 

8041 CONTINUE 


TRAN 310 
TRAN 320 
TRAN 330 
TRAN 340 
TRAN 350 
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V u u 


8040 CONTINUE 
LI =NUT( I ) 

L2=NUT(2> 

L3=MUT( 3) 

WRITE (6,8037) CETCUT(IL) ,IL=1, 3) 

FM 1 = 0, 0 
FP 1 = C« 0 
FM 2=0. 0 
FP2=G. 0 
FM3=0. 0 
FP 3=0# 0 
DO 4104 KL= 

1 , N I HVC 

WRITE (6,8042) KL . FHVC(KL), FMC(KL.Ll). FPC(KL.Ll). 

1 

FMC(KL.L2), FPC(KL,L2), FMC ( KL, L3 ) • FPC(KL.L3) 

FM1=FM1 F 

FMC(KL,L1 ) 

FP1=FP1 + 

FPC (KL »L 1 ) 

FM 2=FM 2 F 

FMC (KL.L2) 

FP2=FP2 + 

FPC (KL.L2I 

FM 3=FM 3 F 

FMC (KL ,L3 > 

FP 3=FP 3 F 

FPC ( KL ,L3 ) 


4104 CONTINUE 

WRITE (6*8045) FM 1 » FP1 , F M2 * FP2 » FM3« FP3 

QR I ( I )=FM1 + FP1 
QR I ( 2 ) =FM2+FP2 
OR I { 2 > =F M3+FP3 

** LINE CQNTR16LTI ON TO THE SPECTRAL FLUX ** 

IF (LI NE S»EQ< 0 ) RETURN 
WRITE (6.8035) 

WRITE (6.8037) (E TOUT I IL > , I L= l . 3 I 
FM l = 0» 0 
FP 1 = 0* 0 
FM2=0. 0 
FP 2=0.0 


TRAN 

360 

TRAN 

370 

TRAN 

380 

TRAN 

390 

TRAN 

400 

TRAN 

410 

TRAN 

420 

TRAN 

430 

TRAN 

440 

TRAN 

450 

TRAN 

460 

TRAN 

470 

TRAN 

480 

TRAN 

490 

TRAN 

500 

TRAN 

5 1C 

TRAN 

520 

TRAN 

530 

TRAN 

540 

TRAN 

55C 

TRAN 

560 

TRAN 

570 

TRAN 

5 80 

TRAN 

590 

TRAN 

600 

TRAN 

610 

TRAN 

620 

TRAN 

630 

TRAN 

640 

TRAN 

650 

TRAN 

660 

TRAN 

670 

TRAN 

680 

TRAN 

690 

TRAN 

700 


ro 

oo 



FM3=0o 0 



TRAN 

710 

FP3=0o 0 



TRAN 

720 

C 



TRAN 

730 

C *4 TOTAL FLUX 

CALCULATION ** 

TRAN 

740 

C 



TRAN 

750 

00 8043 ' 

KL = 

1 ,NHVL 

TRAN 

760 

WRITE (6 

,8042) XL. HVJ(KL) , FM( KL,L 1 ) , FP(KL.Ll), 

TRAN 

770 

1 


FM(KL,L2), FP I XL ,L2 I , FM(KL,L3), FP{KL,L3) 

TRAN 

780 

FM1=FM I 

♦ 

FM ( XL *H ) 

TRAN 

790 

FP 1=FP 1 

+ 

FP C XL ,LI ) 

TRAN 

800 

FM2=FM2 

+ 

FM(XL,L2) 

TRAN 

810 

FP2=FP2 

+ 

FPIXL ,L2) 

TRAN 

820 

FM3=FM3 

+ 

FM< XL ,L3 ) 

TRAN 

830 

FP3=FP 3 

+ 

FP ( XL , L3 ) 

TRAN 

840 

8043 CONTINUE 


1 

TRAN 

850 

WRITE (6 

,8045) FM1, FP1, FM2, FP2 , FM3, FP3 

TRAN 

860 

QRI(1)=0RIU) T FM1 + FP1 

TRAN 

870 

QR 1(2) =QR 1(2) + FM2 + FP2 

TRAN 

880 

ORI( 3)=QRI (3) ♦ F M3 + FP3 

TRAN 

890 

C 



TRAN 

900 

600 FORMAT ( 1H1 

, 33NNUMB ER DENSITIES I P ART I CLES /CW3 ) ///5X.3HETA, 

BX, TRAN 

910 

1 

2HN2, 0X.2HO2, 8X,1HN, SX.IHC, 8X, 2HE-,8X, 

TRAN 

920 


2 1 HH » 8 X » 1HC » 8 X « 2 HC 2 * 8X,2HH2, 8X*2PCC), 8X » 2HC3 » 8X * 3HC2 H/// ) TRAN 930 

603 FORMAT IlP13E10e2> TRAN 940 

4103 FORMAT ( 44H1 CONTI NLUM CONTRIBUTION TO THE SPECTRAL FLUX) TRAN 950 

8035 FORMAT (39H0LINE CONTRIBUTION TO THE SPECTRAL FLUX) TRAN 960 

8037 FORMAT l/22X,5HETA — F7 #3 *1 3X»5HETA =F7*3 . 1 3 X , SHET A =F7 • 3//3X * 1 HI , TRAN 970 

1 3X* 3HHNU, 8X ,6H0MI NUS* 7 X, 5H QPLUS ,8 X ,6HQM I NUS « 7X , 5HQPLUS, 8X, TRAN 980 

2 6HQ MINUS* 7X , 5HQPLL S /) _ TRAN 990 

8042 FORMAT < I 4 ,F 8 . 3 . 1 P EE 1 3, 3 ) , - TRAN1000 

8045 FORMAT { 1 EHO TOTAL FLUX ♦1P8E13.3) TRANIOIO 

RETURN TRAN 10 20 

END TRAN 10 30 



o n 


c 


SUBROUTINE SNDC I > # SND( 10 

COMMON/PRCIPl/PI (60) »RH0C60)\ T( 60 ) . AMW < 60 > .C ( 20 .60 ) • ECC 5, 60 > SND( 20 

COMMON /RFLUX/ EC 60 )» I RAD » I TYPE SND( 30 

COMMON /NO N/RDZ *MUDZ *RMOZ * AKNF , HNF • CPNF SND( 40 


COMMON/WT/SMWC 20) .AWTCS)' 

COMMON /NUMDEN/ SND02C60)* SNON2C60)* 

1 

2 SNDH < 60 ) * SNOC2 ( 60 ) • 

3 SNDC3 ( 60 ) » SNDC2H ( 60 ) 
** CALCULATE SPECIE NUMBER DENSITIES 

CONVER = 3*1 037SE+23 4RH0C I ) *RDZ 

SNDO 2(1) = CCNVER * C( l.I)/SMw( 1) 

SNDN 2(1) = CCNVER * C< 2,I)/SMW( 2> 

SNDO (I) = CCNVER * C( 3»I)/SMW( 3) 

SNDN <I) a CCNVER * C( 4*I)/SMW( 4) 

SNDE <11 = CCNVER * C( 7.D/SMWC 7> 

SNDC <I> = CCNVER * C< 8,I)/SMW( 0) 

SNDH (I) = CONVER * C( 9.I)/SMW( 9) 

SNDH 2(1) = CCNVER * C ( 1 0 . I I /SMWC 10 ) 

SNDCO( I ) = CCNVER * C ( I 1 • I ) /SMW (11) 

SN DC 3(1) = CCNVER * C ( 1 2 ♦ I > /SMW ( 1 2 ) 
SNDC 2(1) = CONVER * C t 1 9 * I > /SMW < 19 ) 

SN DC 2H ( I ) = CCNVER * C < 14 . I ) /SMW ( 1 4 ) 

RETURN 

END 



SND ( 

50 

SNDOC60), SNDNC60). 

SND ( 

60 

SNDEC60). SNDCC 60 ) • 

SNO( 

70 

S NDH2 ( 60 ) » SNDCO ( 60 ) • 

SND ( 

00 


SND ( 

90 

BASED ON MOLE FRACTIONS 

** SND ( 

1 00 

" 

SND ( 

1 10 


SNDC 

1 20 


SNDC 

1 30 


SNDC 

1 40 


SNDC 

150 


SNDC 

16C 


SNOC 

l 70 


SNDC 

1 80 


SNDC 

1 90 


SNDC 

200 


SNDC 

2 10 


SNDC 

220 


SNDC 

2 30 


SNDC 

240 


SNDC 

2 50 


SNDC 

260 


SNDC 

270 


NE 

<3» 

VGP 



u u u 


SUBROUTINE ZPI T1 . SUMN , SUMO . SUMH .SUMC) 

** FRACTIONAL POPULATION STATES FOR N. O. H. C *# 

COMMON /ZPI/ ZP0I6). ZPN (6 ) . ZPH < 2 > . ZPCI7) 

ZP H I 1 > =2. 0 /SUMH 

ZPHI 2 > —8© 0 * EXPl-1 0« 20/T1 )/SUMH 
ZPC l 1) =9.0 /SUMC 

ZPC ( 2 ) =5. 0 * EXPI-1 .264/T1 l/SUMC 
ZPC< 3) =EXP 1-2.6 84/T1 ) /SUMC 
ZPC( 4} =5.0 * EXPI -4. 183/T1 l/SUMC 
ZPC ( S ) =1 2* 0 * EXP 1-7.532/T1 l/SUMC 
ZPC< 6)=36o0*EXPC-e.722/Ti)/SUMC 
ZPC ( 7 > =60. 0 * E XP I— 9.724/T1 1./5UMC 
ZPN ( 1.) =4. 0/SUMN 

ZPN(2)=10o0* E XPl -2. 3S4/TI > /SUMN 
ZPNI3>=6.0 * E XPI-3.576/T1 1/SUMN 
ZPN I 4) -1 8o 0 EXP (-1 0.452/T1 I/SUMN 
ZPN{ 5 ) = 54 . 0 * EXP<—1 1 .877/T1 ) /SUMN 
ZPN < 6 ) =90 • 0 * EXPI— 13.002/T1 )/SUMN 
ZP0< 1 >=9.0/SUMO 

ZPO { 2 ) =5.0’ * E XP( -1 ,967/Tl > /SUMO 
ZPO( 3) =EXP<-4. I 88/T1 » /SUMO 
ZPO ( 4 ) =8* 0 * EXPI — 9. 283/T1 )/SUMO 
ZPO ( 5 ) =2 4. 0 * EXP C-l 0.630/T1 J/SUMC 
ZP0( 6) =40. 0 * E XP <-12. 07 7/ T 1 ) /SUMO 

RETURN 

END 


ZP C T 10 
ZP(T 20 
ZPI T 30 
ZP C T 40 
ZPIT 50 
ZPIT 60 
ZPIT 70 
ZPIT 80 
ZPIT 90 
zpit ion 
ZPIT 110 
ZPIT 120 
ZPIT 130 
ZPIT 140 
ZPIT 150 
ZPIT 160 
ZPIT 170 
ZPIT 180 
ZPIT 190 
ZPIT 200 
ZPIT 210 
ZPIT 220 
ZPIT 230 
ZPIT 240 
ZPIT 250 
ZPIT 260 
ZPIT 270 
ZPIT 280 
ZPIT 290 
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SUBROUTINE BUGPR UDGSW) 


COMMCN /FRSTRM/ U INF * R INF , 
COMMON /YL/ETA(60». YD<60> 

COMMON /TRN/ NUT<60), 

1 EM{ 9.60) . F P (9 

COMMON /DBUG/' QLC(60)* QCL(60 

1 BEEC ( 1 2 * 60 ) • 

2 E P( 1 2 . 60 ) * 

3 QCCP( 1 2) ♦ 

4 EEM < 9 .60 ) » 

5 QCLP (9) » 

e WPP < 9.60 ) . 

7 XLPP (9 .60 ) . 

8 WN( 9.4). 

9 GGM <9.4 .60 > • 

A T AUL (9 .60 ) 

GO TO C 10. 20 ,30 .4 0 .5 0 .60 .70 > . 
10 WRITE <6,194) 

194 FORMAT ( 1H1 ) 

RE TURN 

20 WRITE (6.7182) DECT A 
7182 FORMAT ( 7H0DEL TA= 1 PE 1 4. 7 ,3H C 
RETURN 

30 WRITE (6,190) IY, YD(IY) 

190 FORMAT (4H1 I Y= I 3 . 2 X , 3HYD = 1 PEI 
1 1 3X ,2HMU. 1 l X. 3HTAU, 14 X.1HE .1 

DO 22 K=1.12 


UINF2. P • RE. LXI. ITM. IEM, 


FMC ( 1 2 ■ 
.60 ) . t 
) , QLL I 
FMUC < I J 
T AUC < 1 J 
WMM<9 ,( 
XLMMC9 , 
QLLP<9 1 
GPP<9.< 
FG (9 .4 ! 
FMUL<9 
ET AM( 9 i 

I DGSW 


.60 ) , 
LINES 
(60 ) , 
2,60 > ■ 
2 .60 ) 
60 ) • 
*60 ) , 

) • 

60 ) » 

) • 

,60 ) , 

, 4 .60 ! 


FPC < 12 ,60). 

DON ( 60 ) . QCC( 60 ) . 
EM( 12.60 >. 

BEEL (9, 60 ) » 
GMM19.60). 

OLC P( 9 ) , 

DELTA. IY, 

EEP(9 .60 ) . 

GP( 9.4), 

SSM< 9,4* 60 ) * 

• - S EMC 9.4. 60 ) . 


2.5//2X.1HK, 

IX.3HBEE/'/) 


2X .IHL.7X.3HETA, i; 


IF ( 1 Y • EQ« 1 ) GO TO 23 

WR I TE ( 6 , 191) <K, L. ET A ( L ) , YD(L ) * FMUC(K.L). 

1 EMK.L), BEEC(K.L), L= 1 . I Y ) 

191 FORMAT ( 21 3 , 1 P 6 E 15 « 5 ) 

WRITE ( 6 , 192 ) 

192 FORMAT (/✓> 

23 IF ( I Y«£Q# NES ) GO TO 22 

WRITE ( 6 , 191 ) ( K . L. ET A < L ) • YD< L) » FMUC(K.L). 


BUGP 280 
TAUCIK.L ) .BUGP 290 
BUGP 300 
BUGP 310 
BUGP 320 
BUGP 330 
BUGP 340 
BUGP 350 
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L-lY,NES) 


1 TAUC(K,L), EP f K«L) • BEEC(K.L), L-lY.NES) 

22 WRITE (6,193) FMC(K.IY). FPCIK,IV), QCCP(K) 

193 FORMAT ( SHOP I M= 1PE 1 2* 5 , 2 X ,4HFI P=E1 2*5* 2 X,5HQCCP=E1 2. 5 ) 

RETURN 

40 WRITE (6.195) IY, YO(IY), ((J. L , YO(L), 

1 WMM( J ,L) « GMM(J.L), XLMM(J.L), EEM(J,L), 

2 SEEL(J.L), L=1.IY), 3=1.9) 

19 5 FORMAT (4H0IY=I 3, 2 X, 3HYY=1 PE 1 2* 5//2 X , 1 HJ , 2X , 1 HL , 7X , 2HYD. 12X.3HWMM, 
1 1 2X » 3HGMM ♦ 1 IX, 4HXLMM, 13X.3HEEM , l 3X , 3H8EE// ( 2 13 , 6E 16. 5 ) > 

RETURN 

50 WRITE (6,196) IY, YD(IY). ((J. L , YD ( L ) * 

1 WPP(J.L), GPP(J,L>, XLPP ( J , L ) , EEP(J,L), 

2 BEEL(J.L), L=I V« NES ) , J=l,9> 

196 FORMAT (4H0I Y= I 3,2X,3HYY=1 PE 12»5//2X»1HJ»2X»1 HL » 7X » 2HYD, 13X.3HWPP, 
1 2X, 3HGPP, H X, 4HXLPP * 1 3X ,3HEEP , 1 3X, 3HBEE// ( 21 3, 6E 16# 5) ) 

RETURN 

60 WRITE (6,198) IY, ETA(IY) , YD(IY) 

19 8 FORMAT ( 4H0I Y= I 3 , 2 X . 4HETA= 1 FE 1 2 « 5 ,2 X, 3HY Y=E 1 2 *5// 2X , 1 H J . 5X ♦ 3HQCC , 

1 l IX, 3HFMC ,1 IX, 3HFPC .1 1X,3H0CL,1 1 X , 3HQLC , 1 1 X , 3HQLL , 12X, 2HFM, 12X, 

2 2HFP , 1 1 X * 3HDQN // ) 

WRITE (6.199) (J, QCCP(J), FMC(J,IY). FPC(J.IY), 


1 QCLP(J), GLCP(J) , QLLP(J), FM( J , I Y ) , FP( J , IY > , 

2 J = 1 . 9 ) 

199 FORMAT ( I 3. 1 P8E1 4.5) 

WRITE (6.3065) (J, QCCP(J), FMC(J.IY). FPC(J.IY). J=10,t2 

8069 FORMAT { I 3 , 1 P3E 1 4. 5 ) 

WRITE (6.200) QCC(IYY). OCL(IYY). OLCIIYY), QLL(IYY), 

1 DQN(IYY) 

200 FORMAT ( 1H 0 . 2X , 1PE 1 4. 5 , 2 8X , 3E 1 4. 5 , 2 8X ,E 1 4. 5 ) 

RETURN 

70 WRITE (6.197) L. ETA(L), YD {(_) » ((J, W, WN(J,M), 

1 FG(J,M), GP(J.M), F MUi_ ( J , 1_ ) , TAUL(J,L>, 

2 SSM(J.M.L), GGM( J*M,L) , ET AM { J , M » L ) , 56M(J,M,L) 

3 M=1 ,4) , J=1 .9) 

197 FORMAT < 3H0L = I 3 ,2 X ,4HE TA=1 PEI 2. 5 .2 X , 3HYD=E 1 2. 5//2X , 1 HJ , 2X , 1 HM , 7X . 


QLLP( J ) , 


FM(J.IY), FP ( J , I Y > , ROGP 


FMC ( J , IY), 


FPC( J, IY). 


J=10, 12 


QLC ( IYY ), 


QLL( IYY) , 
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1 1 HN • l 3 X • 1 HE « 1 3 X « 1HG • 1 l X ,3HF MU » 1 i X « 3HT AU * 1 1 X « 3HSSM* 1 I X • 3HGGM * 1 OX . 

2 4HETAM,11X, 3H SBM//C 21 3 *9E 1 4*5 ) 1 
RETURN 

END 


BU6P 710 
8UGP 7 20 
BUGP 730 
BUGP 740 
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SUBROUTINE ZHVIHV.20. 

ZN.2I ,ZC) 



Z HV( 

10 

c 







ZHV( 

20 

c 







ZHVI 

30 

c 

** 

THIS SUBROUTINE CALCULATES THE QUANTUM MECHANICAL CORRECTION 

Z HV ( 

40 

c 



FACTORS GIVEN A 

FREQUENCY (HV) ** 



Z HV I 

50 

c 







Z HV ( 

60 



X = 

HV 




ZHVI 

70 



X 2 

= X*X 




Z HV ( 

80 



X3 

= X2*X 




ZHV( 

90 



X4 

= X 3* X 




ZHVI 

100 



X5 

= X 4 A X 




ZHVI 

110 



X6 

= X5*X 




ZHVI 

120 



X7 

= X6* X 




ZHVI 

130 



IF 

{ X -9.82) 1.1.2 




ZHVI 

140 


1 

ZO 

= #5999795 

-. 31S5480*X 

+2.824548 

E-02*X2 

ZHVI 

150 



1 

♦6.677328 E-03*X3 

-3.644565 E-03+X4 

+ 8.058070 

E-04*X5 

Z HV I 

160 



2 

-7.708637 E-054X6 

+ 2.668133 E —06 *X7 



ZHVI 

170 



GO 

TO 3 

- 



ZHVI 

iao 


2 

ZO 

= ( X79. 82 ) 4*3 




ZHVI 

190 


3 

IF 

( X -5. 3 5 > 4,4,5 




ZHVI 

200 


4 

7N 

= 1.000148 

- .4183535 *X 

+ • 1680359 

*X2 

ZHVI 

2to 



I 

-9.779458 E — 02* XI 

+3.354635 E-02*X4 

-5. 609353 

E— 0 3* X 5 

ZHVI 

220 



2 

+ 4.5155 35E — 04 * X6 

-1.4035e5 £— 05 *X7 



Z HV I 

230 



GO 

TO 6 




ZHVI 

240 


5 

ZN 

= ( X/8. 35 ) **3 




ZHVI 

250 


6 

Y 

= X/4.0 




ZHVI 

26C 



IF 

( Y— 6o 6 ) 9.9,10 




ZHVI 

270 

9 


Y2 

= Y* Y 




ZHVI 

200 



Y3 

= Y2 * Y 




ZHVI 

290 



Y 4 

= Y3*Y 




ZHVI 

300 



Y5 

= Y4*Y 




ZHVI 

310 



Y6 

= Y5*Y 




ZHVI 

320 



Y7 

= Y6*Y 




ZHVI 

3 30 



ZI 

- 1.000379 

- .2964767 *Y 

+ 7 0 505242 

E-024Y2 

ZHVI 

340 



1 

- 1 e 702 94 8E— 02* Y3 

♦3.279554 E-034Y4 

-2. 128469 

E— 04*Y5 

Z HV I 

350 
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GO TO n 

10 ZI = (Y/6. 61**3 

11 IF IX- 7. 37) 12*12*13 

12 ZC = o 99 743 67 - .4341812 *X 

1 -1*393917 E-02*X3 +4.038545 E-03*X4 

2 +2.812126 E-05*X6 -3.883530 E-07*X7 

GO TO 14 

13 ZC = < X/7. 37>**3 

14 RETURN 
END 


ZHV< 360 
ZHV( 370 
Z HV { 380 

+ 8.531314 E-02*X2 ZHV< 390 

-5.426425 E-04*X5 ZHV{ 400 

ZHW 410 
ZHV( 420 
Z HV ( 430 

ZHV{ 440 
Z HV( 450 
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APPENDIX C 


DETAILED RESULTS 
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Figure t.j^’Mass Fraction Profiles for CN 
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Figure C. 20 Mass Fraction Profiles For 
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